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VORWORT 


Wer tiefer in Geheimnisse und Fähigkeiten des Commodore 
VC-20 eindringen möchte, muß sich mit Maschinensprache 
befassen. Wir gaben zur Unterstützung der ernsthaften 
Maschinensprache-Programmierer im vorigen Jahr ein 
ROM-Listing des VC-20 heraus, das schnell vergriffen war. 

Die folgende 2. Auflage bekam den Namen VC-20 intern. Sie 
wurde erheblich erweitert und überarbeitet. Wir hatten eine 
Einführung in die Maschinensprache hinzugefügt, da sich mehr 
und mehr VC-20 Besitzer für dieses Thema interessierten. 

Die nun vorliegende 3. Auflage wurde wiederum erweitert, da 
uns das Echo aus dem Leserkreis zeigte, daß zur intimen 
Kenntnis und effektiven Nutzung des VC-20 gerade unter 
Gebrauch von Maschinenspracheprogrammen der Einstieg in die 
Hardware des Gerätes unumgänglich ist. 

Sie finden daher in dieser Auflage sowohl den vollständigen 
Schaltplan des VC-20, wofür wir an dieser Stelle der 
Commodore Büromaschinen GmbH für die Erlaubnis zum Abdruck 
danken möchten, als auch eine ausführliche Beschreibung 
desselben, sowie Registerbeschreibungen des VIC-Chip und der 
VIA. 


Autoren sind: 

Michael Angerhausen 
und Lothar Englisch 

Für Schaltplan- und Registerbeschreibung sorgten: 

Rolf Brückmann 
und Klaus Gerits 

Manuskript, Abwicklung und Gestaltung besorgten: 

Alicia Clees 

und Cacilia Kalkowski 

Allen sechsen möchte ich hiermit herzlich danken und wünsche 
Ihnen eine angenehme Lektüre. 

Düsseldorf, im September 1983 



- Dr. Achim Becker 



Wichtiger Hinweis 

Die in diesem Buch wiedergegebenen Schaltungen, Verfahren 
und Programme werden ohne Rücksicht auf die Patentläge 
mitgeteilt. Sie sind ausschließlich für Amateur— und 
Lehrzwecke bestimmt und dürfen nicht gewerblich genutzt 
werden. 

Alle Schaltungen, technische Angaben und Programme in diesem 
Buch wurden von den Autoren mit größter Sorgfalt erarbeitet 
bzw. zusammengestellt und unter Einschaltung wirksamer 
Kontrol1maßnahmen reproduziert. Trotzdem sind Fehler nicht 
ganz auszuschließen. DATA BECKER sieht sich deshalb 
gezwungen, darauf hinzuweisen, daß weder eine Garantie noch 
die juristische Verantwortung oder irgendeine Haftung für 
Folgen, die auf fehlerhafte Angaben zurückgehen, übernommen 
werden kann. Für die Mitteilung eventueller Fehler sind die 
Autoren jederzeit dankbar. 



MASCHINENPRÜGRAMMIERUNG AUF DEM VC-20 


*** EINFÜHRUNG *** 

Es gibt viele neue Programmiersprachen -für Computer - warum 
beschäftigt man sich da noch mit einer Sprache, die Ihre 
Wurzeln in den ersten Tagen der "Computerei" hat ? 

Die Sprache des VC-20 ist BASIC, das ist allen bekannt. Aber 
wie kann der Computer die Befehle, die Sie ihm geben, 
verstehen und eine bestimmte Aufgabe lösen ? Dazu gehört 
schon etwas mehr als BASIC. Um das zu verstehen, muß man sich 
mit den Grundlagen der Programmierung befassen. Das wollen 
wir in diesem Kapitel nun machen. 

Die Programmiersprache BASIC wird vom Computer eigentlich 
überhaupt nicht verstanden. Der Programmierer, also Sie, 
können zwar in BASIC programmieren, der Computer muß jeden 
Befehl aber erst in eine für ihn verständliche "Sprache" 
übersetzen (interpretieren). Aus diesem Grund nennt man die 
BASIC Version des VC-20 auch BASIC INTERPRETER. Jeder Befehl 
wird also auf eine ganz bestimmte Art und Weise dekodiert und 
so die Informationen für den Computer aufbereitet. Die 
Sprache in der dies geschieht nennt man MASCHINEN-SPRACHE. 
Nun wird schon deutlich warum man diese Sprache einsetzts 

Zur Programmierung von Betriebssystemen und deren 
Erweiterungen und Hilfen und vor allen Dingen für Programme 
die sehr schnell sein müssen (z.B. für die Steuerung von 
Anlagen von einem Computer aus). Auch wenn die 
Maschinensprache schon etwas alt ists Jeder professionelle 
Programmierer sollte sich in der Maschinensprache auskennen. 

Warum programmiert man dann nicht einfach gleich in 
Maschinensprache ? Ganz einfach. Die Programmierung in 
Maschinensprache ist bei weitem nicht so komfortabel wie die 
Programm!erung in BASIC. Sie ist bedeutend zeitaufwendiger 
und schwieriger. 

Jeder BASIC-Befehl entspricht einer ganzen Reihe von 
Maschinenbefehlen. Ein kleines Beispiel: 

Eine Addition zweier Zahlen 

Das Ergebnis muß bei dem Programm in Maschinensprache kleiner 
oder gleich 255 sein, da man mit dieser sogenannten 8—Bit 
Operation nur Zahlen zwischen 0 und 255 bzw. zwischen —128 
und +127 darstellen kann. Für größere Zahlen muß man auf die 
16—Bit Addition zurückgreifen. In BASIC würde die 
Programmzeile so aussehen: 


PRINT 6+5 


Die ganze Operation läßt sich also leicht in einer Zeile 
darstellen. In Maschinensprache sähe das Resultat so aus: 


CLC 


LDA 

#$06 

ADC 

#$05 

JSR 

AUSGABE 


LÖSCHE DEN ÜBERTRAG 
LADE AKKU MIT 6 
ADDIERE AKKU + ÜBERTRAG + 5 
DRUCKE ERGEBNIS (=11 oder B) 
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HIER KÖNNEN WEITERE BEFEHLE STEHEN 


AUSGABE 


HEXASC 


PHA 


; RETTE DEN AKKUMULATOR 

LSR 

A 

; BRINGE B7 BIS B4 AND DIE STELLE 

LSR 

A 

; VON B3 BIS BO - DIE FREIEN 

LSR 

A 

; STELLEN (B7 BIS B4) WERDEN DANN 

LSR 

A 

; ZU 0 

JSR 

HEXASC 

; WANDLE DIE ZAHL IN EIN ZEICHEN 

PLA 


; HOLE AKKU VOM STAPEL 

AND 

#$0F 

; LÖSCHE B7 BIS B4 

CLC 


; LÖSCHE ÜBERTRAG 

ADC 

#$F6 

; ADDIERE F6 (=246) 

BCC 

$04 

; ERGEBNIS <= 255 ? JA ! 4 BYTES WEITER 

ADC 

#$06 

; ADDIERE 6 

ADC 

#$3A 

; ADDIERE 3A (=58) 

JMP 

$FFD2 

; DRUCKE ZEICHEN AUS AKKU 

- 

■ 

; HIER KANN DAS PROGRAMM WEITERGEHEN 
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Diese Routinen können Sie für Ihre Programme verwenden. Die 
Bedeutung dieser Routinen werden später noch erläutert. 


*** WIE VERSTEHT DER COMPUTER UNSERE BEFEHLE ? *** 

Wie Sie sicherlich wissen, kennt man in der Elektronik zwei 
elektrische Zustände: STROM AN oder STROM NICHT AN. 

Diese Zustände -finden wir auch in der Computer techni k. Nicht 
nur in der HARDWARE, sondern auch in der SOFTWARE und vor 
allen Dingen in der Maschinenprogramm!erung, spielen diese 
Zustände eine wesentliche Rolle. Diese beiden Zustände bilden 
nämlich die kleinstmögliche INFORMATIONSEINHEIT die wir 
kennen: ein BIT. 

Aus dieser Idee heraus findet hier das System der DUALZAHLEN 
seine Anwendung. Dieses Zahlensystem umfaßt nur zwei Zahlen 
(daher DUAL). Diese Zahlen lesen wir als 0 und 1. Sie haben 
für uns eine ganz bestimmte Bedeutung: 

0 - STROM NICHT AN 
1 - STROM AN 

Aus der Kombination von diesen beiden Zahlen lassen sich alle 
möglichen Zahlen darstellen. Bei einem 8-Bit Prozessor (z.B. 
dem 6502 des VC-20) sieht die Darstellung folgendermaßen aus: 

b7 b6 b5 b4 b3 b2 bl bO 

Dabei steht jedes kleine 'b' für BIT. Nun hat jede Stelle 
ihren festen Wert. Dieser Wert läßt sich leicht über die 
entsprechende Zweierpotenz errechnen: 


b7 

= 

2**7 

5 = 

128 

b6 


2**6 

= 

64 

b5 

= 

2**5 

= 

32 

b4 

= 

2**4 

= 

16 

b3 

= 

2**3 

= 

8 
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b2 = 2**2 = 4 

bl = 2**1 = 2 

bO = 2**0 = 1 

(2**x wird gesprochen als "2 hoch x") 

Die Zahl 15 würde demanch dargestellt als: 

0 0 0 0 1 1 1 1 

und die Zahl 16 als: 

0 0 0 1 0 0 O 0 

Die größte darstellbare Zahl ist also 255, oder: 

11111111 

Die Bedeutung dieser Zahlen kann man dann Zahl für Zahl aus 
der oben angegebenen Tabelle entnehmen. 

Um die Maschinensprache richtig zu verstehen, und anzuwenden, 
ist es notwendig auch das Prinzip der Dualzahlen zu 
verstehen- Denn auf dieser Ebene arbeitet der Computer- Wenn 
Sie mit diesem Zahlensystem noch nicht so vertraut sind, 
empfehlen wir Ihnen die Lektüre eines der vielen 6502 
Handbüchern (z.B. PROGRAMMIERUNG DES 6502 VON RODNEY ZAKS - 
SYBEX VERLAG). 

Nachdem wir nun einen kurzen Einblick in das Dualzahlen- 
System getan haben, wollen wir jetzt auf die eigentliche 
Maschinenprogrammierung kommen. 

Bei dem Vergleich von BASIC und Maschinensprache wurde 
deutlich, daß man bei der Verwendung der maschinenorientier¬ 
ten Sprache in der Programmierung etwas anders vorgehen muß 
als bei der normalen BASIC-Programmierung. Es ist für den 
Anfänger sicherlich nicht ganz einfach, diese neue Art der 
Programmierung zu verstehen. Wenn man aber seinen Computer 
beherrschen will - und wer will schon, daß es umgekehrt ist - 
sollte man sich mit der Maschinensprache beschäftigen. 

Denkt man einmal daran eine schnelle Sortier- oder 
Suchroutine zu schreiben (z.B für eine Dateiverwaltung), so 
kommt man einfach nicht an der Maschinensprache vorbei. Und 
für denjenigen der sein Betriebssystem richtig verstehen 
will, den gibt es überhaupt keine andere Möglichkeit als die 
Maschinensprache. 

Sie haben in diesem Kapitel vielleicht festgestellt, daß es 
Ihnen noch schwer fällt sich mit der Maschinensprache zu 
befassen. Sie sollten sich dann nicht scheuen die 
entsprechenden Kapitel mehrmals durchzulesen. Denn auch in 
der Programmierung gilt die Regel: 

NUR ÜBUNG MACHT DEN MEISTER ! 
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*** DER MONITOR - UND WAS STECKT DAHINTER *** 


Ein sehr nützliches, ja beinahe unentbehrliches Werkzeug zur 
Maschinenprogrammierung, ist der sogenannte MONITOR. Der 
Monitor ist ein reines Hilfsmittel (Er hat nichts zu tun mit 
einem Datensichtgerät !). Er ermöglicht das Verändern von 
Speicherplätzen und Registern, die Ausführung von 
Maschinenprogrammen und das Laden, Abspeichern und 
Disassemblieren von Maschinenprogrammen. Schrecken Sie jetzt 
nicht vor diesem "Fachchinesisch" zurück. Wir gehen später 
genau auf jeden Begriff ein. 

Ein weiterer Vorzug des Monitors ist die Möglichkeit mit ihm 
leicht und problemlos Maschinenprogramme zu erstellen und zu 
ändern. 

Wir wallen nun einmal zeigen wie man mit einem Standard- 
Monitor arbeitet. 

Nachdem der Monitor von Kassette oder Diskette geladen wurde, 
startet man ihn entweder mit dem normalen RUN oder aber mit 
einem Aufruf für ein Maschinenprogramm: SYS xxxx. Die 'xxxx ' 
stehen hier natürlich für die Startadresse des Monitors. 
Diese Adressen sind von Monitor zu Monitor verschieden. 

Als nächstes meldet sich der Monitor mit einem PROMPT ('Hier 
bin ich'). Er erwartet nun von Ihnen die Eingabe von 
irgendwelchen Befehlen. Die Meldung nach dem Aufruf des 
Monitors könnte zum Beispiel so aussehen: 

C* 

PC IRQ SR AC XR YR SP 

>; El42 EAA1 31 32 AC 34 F8 

> 

Dieses zeigt dem Programmierer die momentanen Inhalte der 
verschiedenen REGISTER. Beim 6502 kennen wir folgende 
Register: 

PC — Der Programmzähler. In diesem Register steht 
immer die nächste zu verarbeitende 

Programmadresse. 

IRQ — Der Interruptvektor. Dieses Register steuert eine 
mögliche Programmunterbrechung (INTERRUPT). 

SR — Das Statusregister. In diesem Register werden die 
einzelnen Zustände der FLAGGEN (Wegweiser) des 
Prozessors verwaltet. 

AC — Der Akkumulator. In diesem Register werden alle 
Vergleichs- und Rechenoperationen ausgeführt. 

XR — Das X-Regsiter. Das Register dient zur Aufnahme 
von bestimmten Daten während des Programmablaufs. 
YR - Das Y-Register. Auch dieses Register dient zur 
Aufnahme von Daten während des Programmablaufs. 

SP - Der Stapelzeiger. Dieses Register zeigt auf einen 
bestimmten Wert im Stapel (STACK). 

Der Inhalt dieser Register kann vom Monitor laufend überprüft 
und verändert werden. Zu beachten ist, daß alle Eingaben von 
Zahlen in hexa-dezimaler Form zu erfolgen haben (sofern dies 
nicht ausdrücklich anders angegeben ist). Wenn Sie also die 
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Zahl 255 eingeben wallen müssen Sie die Hex-Zahl FF 
eintragen- Diese Eintragung geschieht durch einfaches 
überschreiben des alten Wertes. Sie fahren also mit dem 
Cursor durch Drücken der Pfeil-Tasten über den entsprechenden 
Wert und geben dann den neuen Wert ein. Nach Betätigung der 
RETURN-Taste übernimmt der Computer den neuen Registerinhalt. 

Genauso wie alle Register, so lassen sich natürlich auch die 
Spei eherinhalte anzeigen und verändern. Dies ermöglicht dann 
die Eingabe von Maschinenprogrammen. Der Befehl um einen 
bestimmten Speicherplatz anzuzeigen lautet: 

M xxxx yyyy 

wobei M von der Tastatur aus eingegeben wird und xxxx/yyyy 
die entsprechenden Anfangs und Endadresse des auszugebenden 
Speicherbereichs angeben. 

Nach dieser Eingabe werden dann die entsprechenden 
Speicherinhalte angezeigt. Wenn der angegebene 
Speicherbereich nicht vollständig auf eine BiIdschirmseite 
geht, verschiebt sich der Text Zeile für Zeile nach oben. 
Durch Drücken von RUN/STOP kann man wieder in den Kommando- 
Modus zurückkehren. 

Genau wie beim Ändern der Regi sterinhalte, so werden auch 
hier die einzelnen Speicherstellen verändert. Das heißt, daß 
man mit dem Cursor an die entsprechende Stelle auf dem 
Bildschirm fährt, dort den neuen Wert oder die neuen Werte 
eingibt und danach die RETURN-Taste drückt. 

So könnte zum Beispiel eine Ausgabe von einem bestimmten 
Speicherbereich aussehen: 

>M C000 CO10 

>: C000 A9 10 8D 16 03 A9 CO 8D 
>: C008 17 03 A9 43 85 97 DO 16 
>: C010 A9 42 85 97 D8 4A 68 BD 

Wenn Sie diese Ausgabe 'lesen' wollen, müssen Sie so 
vorgehen: Sie nehmen die Adresse, welche am Anfang jeder 
Zeile steht (z.B. C000 in der ersten Zeile) und addieren dann 
jeweils die Position des Wertes. In unserem Beispiel hieße 
das: An der Spei eher stel 1 e C000 steht der Wert A9, an der 
Stelle COOl der Wert 10 usw. Denken Sie aber immer daran, daß 
al le Angaben, also auch die Angaben der Adressen in hexa¬ 
dezimal erfolgen. Nach der Adresse C009 folgen also die 
Adressen COOA, COOB, C00C, COOD, COOE und C00F. Erst dann 
folgt die Adresse C010. 

Der Speicher kann aber noch auf eine andere Art und Weise 
ausgegeben werden. Durch das DISASSEMBLIEREN von dem 
jeweiligen Speicherbereich. 

Das Di sassembl i er en hat den Vorteil, daß aus den 
unübersichtlichen Hex-Zahlen leicht zu verstehende 
Befehlsfolgen werden. Diese Befehlsfolgen nennt man 
MNEMQNICS« Die mehr oder weniger aufwendige "Übersetzung* 1 der 
Hex-Zahlen in "Klartext" für den Programmierer entfällt beim 
Disassemblieren. Allerdings hat das Disassemblieren auch 
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einen Nachteil 


Wenn irgendwo im Maschinenprogramm zum Beispiel ein Text, der 
nichts mit den eigentlichen Befehlen zu tun hat, erscheint, 
versucht der Disassembler diesen Text als OPERATIONSCODES 
(kurz QPC0DE5) zu interpretieren. Es kann vorkommen, daß 
manche OPCODES den selben Wert wie normale Buchstaben haben 
(Sie kennen ja den BASIC-Befehl CHR$ (x) ?)- Dann erscheint 
die entsprechende (falsche !!!> Mnemonics für den Wert. Es 
kann aber auch Vorkommen, daß der Disassembler den Wert 
überhaupt nicht versteht. Dann erscheinen bei der Ausgabe an 
der jeweiligen Stelle Fragezeichen '???'. Ein erfahrener 
Programmierer wird aber schnell sehen was 'richtige" und was 
'falsche' Werte sind. 

Der nächste Schritt nach der Eingabe oder Änderung eines 
Maschinenprogramms ist dann natürlich die PROGRAMMAUSFÜHRUNG. 
Dies geschieht mit dem Befehl 

G xxxx 

G bedeutet dabei soviel wie GO TO Speicherstelle. Dieser 
Befehl bewirk also einen Sprung zu einer bestimmten Adresse 
(xxxx) und führt dann das dort stehende Maschinenprogramm 
aus. Trifft das Maschinenprogramm auf einen BRK (BREAK) 
Befehl, so wird die Programmausführung abgebrochen und der 
Monitor meldet sich mit 

B* 

und befindet sich wieder im Kommando-Modus. Dazu werden noch 
die Inhalte aller Register angezeigt. Der Programmzähler hat 
nun die nächste Adresse nach dem Abbruch gespeichert. Durch 
geschicktes Einfügen dieses Befehls innerhalb eines 
Maschinenprogrammes ist es dem Programmierer sehr leicht 
möglich die Maschinenprogramme zu testen ohne direkt einen 
'Absturz' befürchten zu müssen. Nach diesem Austesten des 
Programms kann man dann den BRK-Befehl wieder entfernen und 
gegen den eigentlichen Befehl dieser Adresse austauschen. 

Ist Ihnen aufgefallen, daß auch Maschinenprogrammbefehle, wie 
z.B. BRK, für den Neuling doch recht verständlich werden ? Im 
übrigen hat dieser Befehl natürlich die selbe Wirkung wie der 
STOP-Befehl in BASIC. 

Natürlich sollen Maschinenprogramme nicht nur geschrieben, 
geändert und getestet, sondern auch gespeichert und wieder 
geladen werden. Zum SPEICHERN von Maschinenprogrammen auf 
Band oder Diskette gibt es den Befehl 

S "NAME",xx,yyyy,zzzz 

Hierbei bedeutet "NAME" natürlich eine beliebige Bezeichnung 
für das Programm. Das Kürzel 'xx' gibt die Geräteadresse an 
auf der das Programm gespeichert werden soll. Als Werte sind 
bei Commodore möglich: 

01 - Kassette. Dieser Wert muß nicht angegeben werden. 
OB - Diskette. Bei Ausgabe auf Disk muß dieser Wert mit 
angegeben werden. 
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Die nächsten zwei Werte geben die Start- bzw. Endadresse (+1) 
des zu speichernden Speicherbereichs an- Wollen Sie also zum 
Beispiel ein Programm das bei $0800 beginnt ($ bedeutet Hex) 
und bei $OFFF endet, auf Diskette abspeichern, so sähe der 
Befehl dafür so aus: 

S "NAME",08,0800,1000 

Nach dem Drücken der RETURN-Taste wird das Maschinenprogramm 
dann auf die Diskette abgespeichert- 

Das LADEN eines Programmes von Kassette / Diskette erfolgt 
ähnlich dem Schreiben. Allerdings brauchen hier die Anfangs¬ 
und Endadressen nicht mit angegeben zu werden, da der 
Computer aus dem "Vorspann" des Programmes selbst die nötigen 
Adressen feststellt- Es gibt allerdings auch Monitore bei 
denen es möglich ist die Adressen anzugeben und so das 
Programm an beliebige Adressen zu legen (RELOKATIEREN). Es 
ist dabei aber zu beachten, daß nicht alle Befehle 
relokatiert werden. So bleibt zum Beispiel ein absoluter 
Sprung nach $0900 ein Sprung nach $0900 auch wenn dort das 
Programm überhaupt nicht liegt. Nur indirekte Sprünge können 
korrekt ausgeführt (relokatiert) werden. Der allgemeine 
Befehl zum Laden von Programmen lautet: 

L "NAME",xx 

wobei 'xx' wieder die Angabe über das Gerät, von der das 
Programm geladen werden soll, enthält. 

Ein weiterer interessante Befehl ist der X (EXIT, Abbruch) 
Befehl. Dieser Befehl erlaubt die Rückkehr ins BASIC ohne ein 
bestehendes Maschinenprogramm zu verändern. Sie können also 
mit dem Monitor ein Maschinenprogramm erstellen und dann ins 
BASIC zurückkehren, um dort beispielsweise ein BASIC Programm 
zu erstellen. Danach haben Sie wieder die Möglichkeit in den 
Monitor zu gehen usw. 

Ein Tip am Rande: Wenn Sie ein Maschinenprogramm geladen 
haben (z.B. einen Monitor) empfiehlt es sich im Direkt—Modus, 
also direkt über die Tastatur, den NEW—Befehl einzugeben. 
Dadurch werden alle wichtigen Adressen wieder richtig 
gesetzt. Ansonsten könnte es passieren, daß Sie bei Eingabe 
eines BASIC-Programmes schon nach der ersten Zeile eine OUT 
0F MEMORY Fehlermeldung bekommen (oder andere recht 
eigenartige Sachen passieren). 

Natürlich kann man auch ohne Monitor in Maschinensprache 
programmieren und diese starten. Doch muß man dann beachten, 
daß jeder einzelne Speicherplatz von BASIC aus geändert 
werden muß. 

Das bedeutet beispielsweise, daß Sie ein entsprechendes BASIC 
Programm schreiben müßten, mit dem Sie dann die 
Operationscodes eingeben können« Dies kann aber mit 
Schwierigkeiten verbunden sein. Fast jedes Maschinenprogramm- 
Listing ist in hexa—dezimaler Form angegeben. Da der PQKE— 
Befehl in BASIC (durch den werden ja einzelne Speicherplätze 
verändert) aber nur dezimale Zahlen erlaubt, müßten Sie alle 
Hex-Werte in dezimale Werte umrechnen. Erst dann kann der 
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POKE—Befehl angewendet werden. Bei der Ausgabe von 
Speicherplätzen muß dann genau in der anderen Reihenfolge 
vorgegangen werden. Zuerst also den Wert mit PEEK lesen, 
ausgeben und dann in Hex-Werte umsetzen. 

Ein anderes Problem sind die Speicherplätze, die von BASIC 
belegt werden. Um das System vor einem Absturz zu bewahren, 
muß darauf geachtet werden, keine Adressen zu verändern, oder 
Speicherbereiche zu verwenden, die auch von BASIC (bzw. dem 
BASIC Programm) belegt werden. 

Probleme gibt es außerdem bei der Abspeicherung von 
Maschinenprogrammen, da im normalen BASIC-Modus nicht die 
Möglichkeit besteht, bestimmte Speicherbereiche 
abzuspeichern. BASIC nimmt bei dem SAVE-Befehl einfach die 
Angaben die in den entsprechenden Registern (Anfang BASIC 
Programm - Ende BASIC Programm) stehen und fügt diese 
automatisch an den SAVE-Befehl an. Sie würden also versuchen 
ein ganz normales BASIC Programm abzuspeichern. 

Wie Sie sehen, ist die Anschaffung eines in der Regel recht 
preisgünstigen Monitors jedem angehenden Systemprogrammierer 
(oder denen die es werden wollen) unbedingt zu empfehlen. 
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*** WIE GEHE ICH BEI DER MASCHINENPROGRAMMIERUNG VOR ? *** 


Wenn Sie nun mit dem Monitor und seiner Anwendung 
einigermaßen vertraut sind, kann mit der eigentlichen 
Programmierung begonnen werden. 

Der gesamte Ablauf des Programmierens läßt sich in 5 Schritte 
aufteilen: 

1. ) Der erste Schritt ist die Erstellung eines 
Programmablaufplanes (PAP). In der professionellen EDV 
bestehen diese PAP aus genormten Symbolen. Für uns reicht es, 
wenn wir uns einen sprachlich kurz formulierten 
Stichpunktzettel machen. Auf diesem Zettel steht dann der 
grob entworfene Ablauf des Programmes (Verzweigungen, 
benötigte Peripherie etc.). An Hand dieses Blattes können wir 
in jedem Stadiun unserer Programmierung feststellen, was zu 
tun ist. 

Wer will, kann natürlich auch professionelle PAP erstellen. 
Es gibt sehr viele Bücl er, die die Erstellung dieser 
Abiaufplane beschreiben. Da n werden auch die Programmier von 
Groß-Rechnern feststellen, daß unsere Personalcomputer kein 
Spielzeug sind, auf denen man nichts vernünftiges machen 
kann. 

Außerdem haben Sie so nach kurzer Zeit eine große Sammlung 
sogenannter Algorithmen beisammen, die Sie in alle 
Programmiersprachen übersetzen können. 

Dieser erste Schritt wird oft vernachlässigt (LEIDER !!!!), 
aber gerade dieser Schritt, entscheidet oft über die Qualität 
eines Programmes. Das endgültige Programm sollte also schon 
in dieser Phase auf dem Papier existieren. 

2. ) Eine sehr wichtige Überlegung bei der Programmierung in 
Maschinensprache (und auch später bei der Assembler— 
Programmierung) ist die Wahl des Speicherbereiches in dem das 
Programm ablaufen soll. Maschinenprogramme arbeiten sehr oft 
mit Programmen höherer Programmiersprachen (z.B. BASIC, 
PASCAL, COBOL, FORTRAN etc.) zusammen« Da diese Sprachen 
genau wie das verwendete Betriebssystem, einen bestimmten 
Speicherplatz benötigen, um dort Daten, Zeiger und 
dergleichen zu speichern, muß das Maschinenprogramm vor einer 
Überschreibung und damit Zerstörung geschützt werden. Dies 
kann durch einen kleinen Trick geschehen: Man muß dem 
Computer mitteilen, daß ihm ein Teil des Speichers nicht mehr 
zur Verfügung steht. Das Programm kann dann weiterhin auf das 
Maschinenprogramm zugreifen, ohne aber dieses zu 
übersehreiben. 

Eine andere Möglichkeit der Platzierung von 
Maschinenprogrammen besteht darin, das Maschinenprogramm in 
einen Speicherbereich zu legen, der von der 
Programmiersprache und dem Betriebssystem nicht beeinfluß 
wird. 

3. ) Erst wenn die beiden vorherigen Schritte sorgfältig 
durchgeführt sind, sollte mit der eigentlichen Programmierung 
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begonnen werden. Diese ganzen Schritte sind gleichermaßen für 
Maschinen- als auch für die sonstige Programmierung sinngemäß 
die Selben. 

Die Frage, die man sich nun stellt, betrifft die Art und 
Meise, das endgültige Programm zu erstellen- Entweder 
schreibt man das Programm nur mit den jeweiligen Opcodes 
(also 'zu Fuß'), oder man verwendet, sofern man den 
entsprechenden Monitor dafür besitzt, die Mnemonics. Diese 
Art kommt der professionellen AssemblerProgrammierung schon 
etwas näher. Aber darauf kommen wir später noch. 

4. ) Der vierte Punkt lehnt sich stark an den dritten Punkt 
an. Hier muß man entscheiden, wie man das nun fertige 
Maschinenprogramm in den Speicher bringt. Die einfachste 
Möglichkeit ist, durch den BASIC-Befehl POKE jede Adresse 
einzeln zu verändern. Das ist natürlich sehr umständlich und 
mühsam. Außerdem hat man keine genaue Kontrolle über die 
eingegebenen Opcodes. Deshalb ist auch hier wieder ein 
Monitor die beste Möglichkeit. 

Um zu testen, ob die eingegebenen Opcodes auch korrekt waren, 
brauchen Sie nur, nachdem Sie die ganzen Opcodes eingegeben 
haben, mit dem Disassemblier—Befehl 

D xxxx yyyy 

den entsprechenden Speicherbereich (xxxx — Startadresse, yyyy 
= Endadresse) zu disassemblieren und mit Ihren Notizen auf 
dem Papier zu vergleichen. Wenn alles korrekt war kommt der 
nächste Schritt. 

5. ) Als letzter Punkt bleibt noch der Testlauf. Hier stellt 
sich dann heraus, ob alles so läuft wie man sich das 
vorgestellt hat. Hier rächt sich dann auch eine nicht 
ausreichende Vorbereitung (s. Punkt 1). Wenn irgendwo im 
Programm ein Fehler auftreten sollte — und das passiert auch 
den besten Programmieren — kann man durch Einsetzen des BRK— 
Befehls im Programm mit Hilfe des Monitors leicht den Fehler 
finden. 

Beim nächsten mal klappt es dann bestimmt. 

Wenn Sie diese 5 Punkte zu Ihrem Leitfaden machen, werden Sie 
beim Programmieren keine bösen Überraschungen erleben. Es ist 
schon oft vorgekommen, daß jemand sein eigenes Programm nach 
ein paar Wochen selber nicht mehr verstand, nur weil die 
richtige Vorbereitung und die notwendigen Aufzeichnungen 
fehlten. Gewöhnen Sie sich daher von vorne herein einen 
korrekten Programmierstil an. 



Wir wollen Ihnen einmal an einem kleinen Beispiel den Ablauf 
einer korrekten Programmentwicklung geben. Das Programm soll 
einen kleinen Text auf dem Bildschirm ausgeben. Was benötigen 
wir dafür ? 

Als erstes wollen wir den kleinen Text von der Tastatur aus 
einiesen und zwar bis die RETURN-Taste gedrückt wird. Danach 
soll der gleiche Text noch einmal auf dem Bildschirm 
ausgegeben werden. Für dieses kleine Problem befinden sich 
schon einige nützliche Routinen im ROM des VC 20, auf die Sie 
zurückgreifen können. (Vergleichen Sie auch die Tabelle mit 
den Routinen in diesem Buch) 

Als nächstes müssen wir einen passenden Speicherplatz für 
unser kleines Programm finden. Es besteht die Möglichkeit 
kleinere Maschinenprogramme, so wie dieses Beispielsprogramm 
in den Kassettenpuffer zu legen. Dieses hat aber einen 
Nachteil: Wir können das Programm nicht auf Kassette 
abspeichern, da dieser Kassettenpuffer beim Speichern mit 
eigenen Daten (z.B. der Name des Programmes) überschrieben 
wird - das Programm wäre also zerstört. Da dies allerdings 
nur ein kleines Übungsprogramm werden soll, können wir es 
ruhig an diese Stelle speichern. Das hat den Vorteil, daß 
dieses Programm auf Jedem VC 20 läuft — die Erweiterung wird 
dabei ja nicht genutzt. 

Unser kleines Programm soll also ab Adresse $033C (Beginn des 
Kassettenpuffers) beginnen. Das Programm würde in Assembler 
geschrieben so aussehen: 


Adresse 

Wert 


□pcode 

Operand 

Bemerkung 

033C 

20 

5F 

E5 

JSR 

♦E55F 

5 

LÖSCHE BILDSCHIRM 

033F 

A2 

00 


LDX 

#♦00 

5 

LÄNBE DES TEXTES=0 

0341 

20 

CF 

FF 

JSR 

♦FFCF 

9 

TASTATUR LESEN 

0344 

C9 

00 


CMP 

#♦00 

f 

KEINE TASTE 6EDR.? 

0346 

F0 

F9 


BEQ 

♦0341 

5 

NEIN - ZURÜCK ! 

0348 

C9 

OD 


CMP 

#♦00 

9 

RETURN-TASTE ? 

034A 

F0 

07 


BEQ 

♦0353 

; 

JA - AUSGABE ! 

034C 

9D 

00 

02 

STA 

♦0200,X 

9 

SPEICHER ZEICHEN ! 

034F 

E8 



INX 


9 

LÄNBE TEXT+1 

0350 

4C 

41 

03 

JMP 

♦0341 

9 

WIEDER LESEN 

0353 

A9 

00 


LDA 

#♦00 

5 

AKKU—0 

0355 

9D 

00 

02 

STA 

♦0200,X 

9 

SPEICHER ZEICHEN ! 

0358 

A9 

00 


LDA 

#♦00 

9 

LSB 

035A 

A0 

02 


LDY 

#♦02 

9 

MSB 

035C 

20 

IE 

CB 

JSR 

♦CB1E 

9 

DRUCKE TEXT ! 

035F 

4C 

74 

C4 

JMP 

♦C474 

9 

ZURÜCK INS BASIC ! 


Der Speieherauszug mit dem Monitor sieht folgendermaßen aus: 
>M 033C 0361 

>: 033C 20 5F E5 A2 OO 20 CF FF 

>: 0344 C9 OO F0 F9 C9 0D FO 07 

>: 034C 9D 00 02 EB 4C 41 03 A9 

>: 0354 00 9D 00 02 A9 00 AO 02 

>: 035C 20 IE CB 4C 74 C4 .. .. 

Unser kleines Programm ist insgesamt 25 Bytes lang. Es zeigt 
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zwar nur ein paar Befehle der sehr umfangreichen Befehlsliste 
des 6502, aber es wird nun hoffentlich doch das Prinzip 
sichtbar, das hinter der Maschinenprogrammierung steckt. 

Man beginnt stets mit der INITIALISIERUNG der Variablen (d.h. 
sie auf einen Anfangs- oder Ausgangswert zu bringen). 
Außerdem wird noch die Periherie (z.B. Bildschirm oder 
Drucker) mit eingebunden <dem Gerät wird mitgeteilt welche 
Zusatzgeräte noch angeschlossen sind). Wenn das geschehen 
ist, kann das eigentliche Programm gestartet werden. Wir 
wissen nun schon, daß dafür der SYS-Befehl verwendet wird: 

SYS 828 

Wir sollten an dieser Stelle vielleicht noch einmal den SYS- 
Befehl erläutern. Er hat die Aufgabe Maschinenprogramme oder 
Maschinenroutinen aufzurufen. Diese Programme wurden vorher 
entweder von Hand aus (so wie in unserem Beispiel) über die 
Tastatur eingegeben oder aber von Kassette bzw. Diskette 
geladen. Wenn man diesen Befehl aufruft, teilt man BASIC 
damit mit, daß die Kontrolle über den Programmablauf dem 
Maschinenprogramm überlassen wird. Man kann also kein 
Maschinenprogramm durch ein einfaches RUN starten (es sei 
denn es existiert eine BASIC-Zeile mit einem SYS) da in 
diesem Falle der BASIC-Interpreter die Kontrolle über das 
Maschinenprogramm übernehmen würde. Die Folge wäre irgend ein 
seltsamer ERROR. 

Dieser SYS-Befehl kann aber auch seine Tücken haben. Bei 
falscher Angabe der Adresse kann es Vorkommen, daß der VC-20 
abstürzt, das heißt, daß Sie keine Kontrolle mehr über das 
Gerät haben - da hilft nur noch abschalten. Ein Absturz kann 
auch erfolgen wenn das Maschinenprogramm fehlerhaft sein 
sollte. Also aufgepaßt ! 

Der SYS-Befehl verlangt natürlich auch die Angabe einer 
Adresse (wie oben schon berichtet). Diese Adresse kann 
theoretisch Werte zwischen 0 und 65535 anehmen. Diese Adresse 
gibt die Startadresse des Maschinenprogramms oder die 
Einsprungadresse der Maschinenroutine an. Diese 
Maschinenroutine muß mit einem RTS-Befehl (bzw. dem 
entsprechenden Opcode) abschließen. Ansonsten: ABSTURZ. 

übrigens können Sie auch Routinen aus dem ROM aufrufen. 
Versuchen Sie doch mal den Bildschirm zu löschen ohne die 
CLR/HOME Taste zu betätigen. Ein Tips Diese Routine haben wir 
schon in unserem kleinen Beispielsprogramm verwendet. 
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DER NÄCHSTE SCHRITT - DIE ASSEMBLERPROGRAMMIERUNG 


*** WARUM ASSEMBLER *** 

Welche Vorzüge hat denn der Assembler gegenüber der 
Maschinensprache ? Um diese Frage zu beantworten, muß man 
sich schon eine gewisse Zeit mit der Maschinensprache und 
ihren Schwierigkeiten befaßt haben. Man stellt dann nämlich 
fest, daß die ewige Umrechnung der Opcodes und der Sprünge - 
vor allen Dingen der indirekten Sprünge — viel zu 
zeitaufwendig ist. Durch diese Um— und Berechnungen verliert 
man doch sehr viel Zeit — und der Anfänger vielleicht auch 
irgendwann einmal die Lust. 

Trotzdem möchte man nach den ersten Erfahrungen mit der 
Maschinenprogrammierung ungern auf ihre Vorzüge, besonders 
ihre Geschwindigkeit, nicht mehr verzichten. 

Es muß doch möglich sein, sich diese ganze Handarbeit zu 
sparen. Auf diese Idee baut der Assembler auf. Bei ihm ist 
die Verwendung von symbolischen LABEL möglich. Diese Label 
sind mit Namensschilder zu vergleichen, die unabhängig von 
der eigentlichen Adresse sind. 

Um diesen Vorgang noch etwas zu verdeutlichen: 

In Maschinensprache müßte man sagen: JSR $4711 
in Assembler dagegen: JSR EAU_DE_COLOGNE 

Wenn man nun irgendwo in dem Maschinenprogramm eine Zeile 
einfügen möchte, so verändern sich unter Umständen eine ganze 
Reihe von solchen Adressen. 4711 wird dann vielleicht zu 
4714. Und diese neue Adresse muß dann wiederum von Hand 
überall verändert werden. Eine nette Beschäftigung ! 

In Assembler dagegen wird diese Arbeit zu einem Kinderspiel. 
Sie fügen ganz einfach die neue Zeile in das Programm ein, 
assemb1ier en erneut und schon haben sich alle Adressen 
entsprechend verändert. Was für ein Wunder ! 

Das Assemblerprogramm wird zwar etwas länger, da ja die 
ganzen Adressen erst in einer Liste mit den entsprechenden 
Werten eingetragen werden müssen, diese DEFINITIONEN belegen 
ja einen gewissen Speicherplatz, aber nach dem Assemblieren 
ist dieses Programm genau so groß wie das eigentliche 
Maschinenprogramm. Das ist kein Kunststück: Der Assembler 
mach aus dem Programm ein lauffähiges Maschinenprogramm. Der 
Zeitaufwand für den Programmier wird daher drastisch 
verkürzt. Nach der Assemblierung haben Sie dann 2 Programme: 
Das normale Assemblerprogramm (in dem Sie beliebig viele 
Änderungen machen können) und das Maschinenprogramm, das Sie 
nicht mehr zu ändern brauchen. 

So wie der Monitor praktisch unabdingbare Voraussetzung für 
die einfache Maschinenprogrammierung ist, so braucht man 
einen Assembler, wenn man häufig längere Maschinenprogramme 
schreiben will. Es sind zur Zeit einige sehr leistungsstarke 
Monitors und Assembler für den VC-20 erhältlich. 
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*** TABELLE DER 6502 BEFEHLE *** 


In dieser Tabelle zeigen wir Ihnen alle 6502 Befehle. Diese 
Befehle geben Sie entweder als tatsächlichen Befehl (d.h. die 
Mnemonics) mit dem unter Umständen dazugehörigen Operanden 
mit Hilfe eines Assemblers ein, oder aber Sie verwenden die 
binäre Form für den Monitor (es muß dann natürlich noch eine 
Umrechnung in Hex-Werte erfolgen). 

In unserer Liste sehen Sie viele Binärzahlen die eines oder 
mehrere kleine 'b's enthalten. Diese 'b' stehen für ein noch 
zu berechnendes Bit. Da einige Befehle mehrere 
unterschiedliche Operanden haben können, können auch 
verschiedene Binärzahlen entstehen. Die Stelle der Binärzahl, 
die sich unter Umständen ändert, ist aus diesem Grund mit 
einem 'b' versehen. 


Befehl 

Funktion 


ADC 

Addieren mit übertrag 


AND 

Logisches UND 


ASL 

Arithmetisches Linksschieben 

BCC 

Verzweigen, wenn übertrag 

gelöscht 

BCS 

Verzweigen, wenn übertrag 

gesetzt 

BEQ 

Verzweigen, wenn Ergebnis 

gleich 

BIT 

Teste Bit 


BMI 

Verzweigen, wenn negativ 


BNE 

Verzweigen, wenn Ergebnis 

ungleich 

BPL 

Verzweigen, wenn positiv 


BRK 

Abbruch 


BVC 

Verzweigen, wenn Überlauf 

gelöscht 

BVS 

Verzweigen, wenn Überlauf 

gesetzt 

CLC 

übertrag löschen 


CLD 

Dezimal-Flagge löschen 


CLV 

Überlauf löschen 


CMP 

Vergleich mit Akku 


CPX 

Vergleich mit X-Register 


CPY 

Vergleich mit Y-Register 


DEC 

Dekrementiere Speicher 


DEX 

Dekrementiere X-Register 


DEY 

Dekrementiere Y-Register 


EOR 

Exklusives ODER 


INC 

Inkrementiere Speicher 


INX 

Inkrementiere X-Register 


INY 

Inkrementiere Y-Register 


JMP 

Verzweigen 


JSR 

Verzweigen in Unterprogramm 

LDA 

Lade Akku 


LDX 

Lade X-Register 


INY 

Lade Y-Register 


LSR 

Logisches Rechtsschieben 


NOP 

Leerbefehl (keine Operation) 

ORA 

Logisches ODER 


PHA 

Akku auf Stapel bringen 


PHP 

Statusregister auf Stapel 

bringen 

PLA 

Akku vom Stapel holen 


PLP 

Statusregister von Stapel 

holen 

ROL 

Linksrotieren 



Binär 


OllbbbOl 

OOlbbbOl 

OOObbbOl 

10010000 

10110000 

11110000 

OOlOblOO 
00110000 
11010000 
00010000 
oooooooo 
01010000 
OlllOOOO 
0001lOOO 
HOllOOO 
10111000 
1lObbbOl 
HlObbOO 
1lOObbOO 
HObbllO 
10101010 
10001000 
OlObbbOl 
lllbbllO 
HIOIOOO 
HOOIOOO 
OlbOllOO 
00100000 
lOlbbbOl 
lOlbbblO 
lOlbbbOO 
QlObbblO 
11101010 
OOObbbOl 
OIOOIOOO 
00001000 
OllOlOOO 
00101000 
OOlbbblO 
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ROR 

RTI 

RTS 

SBC 

SEC 

SED 

SEI 

STA 

STX 

STY 

TAX 

TAY 

TSX 

TXA 

TXS 

TYA 


Rechtsrotieren 

Rückkehr von Unterbrechung 

Rückkehr von Unterprogramm 

Subtrahieren mit übertrag 

übertrag setzen 

Dezimal-Flagge setzen 

Unterbrechung-Flagge setzen 

Akku speichern 

X-Register speichern 

Y-Register speichern 

Akku ins X-Register übertragen 

Akku ins Y-Register übertragen 

Stapelzeiger ins X-Register übertragen 

X-Register in Akku übertragen 

X-Register in Stapelzeiger übertragen 

Y-Register in Akku übertragen 


OllbbblO 

OIOOOOOO 

OllOOOOO 

lllbbbOl 

OOllIÜOO 

iliiiooo 

OllUOOO 

lOObbbOl 

lOObbllO 

lOObblOO 

IOIOIOIO 

IOIOIOOO 

10111010 

10001010 

10011010 

10011000 


Für eine detai1iertere Angabe über alle Befehle des 6502 und 
deren Anwendung und Verwendungszwecke lesen Sie bitte in den 
entsprechenden 6502—Handbüchern nach. 
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*** MEIN ERSTES ASSEMBLERPROGRAMM *** 


Der Assembler ist ein Programm, das die mnemonische 
Befehlswiedergabe in ihre binäre Form übersetzt- Jeder 
symbolische Befehl wird so in einen binären Befehl mit 1, 2 
oder 3 Byte Länge übersetzt. So wird aus einem QUELLPROGRAMM 
(oder Sourcecode) ein OBJEKTPROGRAMM (oder Objectcode). 
Dieses Programm ist dann genau wie das normale 
Maschinenprogramm voll lauffähig. 

Eine Zeile eines Assemblerprogrammes besteht aus mehreren 
Teilens 


1. ) Die Zeilennummer - Zu vergleichen mit BASIC 

2. ) Die Adresse - Die Spei eherstel1e in der sich der Befehl 

befindet 

3. ) Der Opcode - Der Befehl hexa-dezimal umgesetzt 

4. ) Das Label - Der "Titel" eines Programmabschnitts 

5. ) Die Mnemonics - Der erste Teil des Programms 

6. ) Der Operand - Der zweite Teil des Programms 

7. ) Die Bemerkung - Ein beliebiger Text 

In dieser Liste sind die Punkte 4 und 7 optional. Das heißt, 
daß sie nicht in jeder Zeile angegeben werden müssen. Die 
Adresse braucht nicht mit angegeben zu werden — das ist ja 
gerade der Vorteil vom Assembler — sie wird während des 

Assemblierens selber berechnet und eingefügt. 

Das fertige Objektprogramm enthält dann nur noch diese Werte. 
Dadurch ist es möglich, daß die Objektprogramme um einiges 
kürzer sind als das eigentliche Quel1Programm. 

Zusätzlich zu den schon beschriebenen 6502 Befehlen verstehen 
die meisten Assembler auch noch einige spezielle Befehle. So 
lassen sich zum Beispiel durch den -TEXT Befehl ganze Texte 
in den Speicher bringen, ohne daß man ihre Länge berechnen 
muß. Die selbe Möglichkeit haben wir auch bei Konstanten oder 
Variablen die mit dem Befehl -BYTE in einen bestimmten 
Speicherplatz gespeichert werden. 

Mit diesen Hilfen werden Sie rasch die Vorzüge der 

Assemblerprogrammierung erkennen und auch selber sehr viele 
Routinen, an deren Lösung Sie in BASIC bisher scheiterten, 

schreiben. In diesem Handbuch werden Sie noch einige 
Maschinenprogramme finden, die Ihnen auf leicht verständliche 
Art und Weise zeigen wie man effizient und erfolgreich in 
Assembler programmiert. 

Hier sehen Sie nun ein Ausschnitt aus einem 

Assemblerprogramm: 

absolute symbolische Befehl Operanden Kommentar 

Adresse Adresse 


OOOO PUFFER = *033C 


0000 

OOOO 


* = 0000 

LDA #$00 


Die Variab. PUFFER 
wird bei $033C ge¬ 
speichert 
Start bei 0000 
Die Zahl O wird in 


TEST 
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0003 


STA 


0006 

An dieser Stelle 
folgen 

0123 WEITER 

0124 


PUFFER 
JMP WEITER 

vom Programm können noch 

SEC 

SBC #«0A 


den Akku geladen 
Der Akku wird bei 
«033C gespeichert 
Weiter geht es bei 
WEITER 

weitere Befehle 


Die Übertrag-Flagge 
wird gesetzt 
Subtrahiere 10 zum 
Akku 


Ab hier geht das Programm dann weiter. 


Sie sehen deutlich den Unterschied zu dem Maschinenprogramm: 
Sie brauchen nicht mehr die Hex—Codes zu berechnen und 
einzusetzen. Dies geschieht während des AssemblerVorgangs. 
61eichzeitig bemerkt er mögliche Fehler und meldet diese dann 
dem Anwender. 


Diese Methode ist gegenüber der Maschinenprogrammierung nicht 
nur wesentlich schneller sondern auch wesentlich sicherer als 
die Maschinenprogrammierung. 

Nun aber zu unserem ersten selbst erarbeiteten 
Assemblerprogramm. Als Beispiel soll hier eine mathematische 
Routine dienen: Eine schnelle SQR (Wurzel) Routine. 

Diese Routine ist um einiges schneller und genauer als die im 
BASIC verwendete SQR-Routine. Der Algorithmus für die 
Funktion lautet: 


X (N+l) - X (N) - F (X (N)) / F < X (N) ) 

X = F (A) 

X <N+1) = (X (N) + A / X (N) ) / 2 
Die Laufzeit dieser Funktion beträgt nur etwa 14 ms ! 

Das Programm sieht folgendermaßen aus: 

100: 033C .0PT PI,02 

9 

5 SCHNELLE SQR-ROUTINE, CA 14 MS 
; ALGORITH. X(N+1) - XCN) - F(X(N>) / F(X(N)) 
5 X = F (A) , X (N+l) = (X (N) + A / X (N) ) / 2 


DEKLARATION: 


HO; 

033C 

SIGN 

_ 

«DC2B 

120: 

033C 

ILLEGAL 

= 

«D248 

130: 

033C 

EXP 

5S 

«61 

140: 

033C 

AKKU3 

— 

«57 

150: 

033C 

AKKU4 

= 

«5C 

160: 

033C 

COUNT 

sss 

«67 

170: 

033C 

A1TOA3 

s= 

«DBCA 

180: 

033C 

A1T0A4 

= 

«DBC7 

190: 

033C 

MEMDIV 

= 

«DBOF 

200: 

033C 

MEMPLUS 

= 

«D867 
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210 

033C 






220 

033C 

20 

2B 

DC 


JSR 

230 

033F 

F0 

34 



BEQ 

240 

0341 

10 

03 



BPL 

250 

0343 

4C 

48 

D2 


JMP 

260 

0346 

20 

C7 

DB 

ÜK 

JSR 

270 

0349 

A5 

61 



LDA 

280 

034B 

38 




SEC 

290 

034C 

E9 

81 



SBC 

300 

034E 

08 




PHP 

310 

034F 

4A 




LSR 

320 

0350 

18 




CLC 

330 

0351 

69 

Ol 



ADC 

340 

0353 

28 




PLP 

350 

0354 

90 

02 



BCC 

360 

0356 

69 

7F 



ADC 

370 

0358 

85 

61 


S1 

STA 

380 

035A 

A9 

04 



LDA 

390 

035C 

85 

67 



STA 

400 

035E 

20 

CA 

DB 

ITER 

JSR 

410 

0361 

A9 

5C 



LDA 

420 

0363 

A0 

00 



LDY 

430 

0365 

20 

OF 

DB 


JSR 

440 

0368 

A9 

57 



LDA 

450 

036A 

A0 

00 



LDA 

460 

036C 

20 

67 

D8 


JSR 

470 

036F 

C6 

61 



DEC 

480 

0371 

C6 

67 



DEC 

490 

0373 

DO 

E9 



BNE 

500: 0375 

60 



ENDE 

RTS 


(LSB = Least Significant Byte: bO 
(MSB = Most Signi-ficant Nibble : I 


$033C 

;PRG. IST IM BUFFER 

SIGN 

;VORZEICHEN LESEN 

ENDE 

;NULL ? JA ! ENDE 

OK 

;POSITIVE 7 JA ! OK 

ILLEGAL 

;ILLEGAL QUANT. ERR. 

AlTOA3 

;AKKU1 -> AKKU4 

EXP 

5EXPONENT AKKU 

5SETZE ÜBERL. FLAGGE 

#$81 

;EXP. NORMALISIEREN 
;STAT.REG. -> STAPEL 
;EXPONENT HALBIEREN 
;LÖ. ÜBERLAUF FLAGGE 

#$01 

;ADDIERE 1 HINZU 
;STAT.REG. <- STAPEL 

S1 

;ÜBERL. ? NEIN ! S1 

#$7F 

;ADDIERE 127 

EXP 

;SPEICHER ALS EXP. 

#$04 

;VIER ITERATIONEN 

COUNT 

;SPEICHER IN VAR. 

AlTOA3 

;AKKU1 -> AKKU3 

#< AKKU4 

$ LSB VON AKKU4 

# >AKKU4 

;MSB VON AKKU4 

MEMDIV 

;DURCH AKKU1 DIV. 

#< AKKU3 

;LSB VON AKKU3 

# >AKKU3 

;MSB VON AKKU3 

MEMPLUS 

;MIT AKKU1 ADD. 

EXP 

;AKKU1 / 2 (EXP.-l) 

COUNT 

;EINE ITERAT. WENIGER 

ITER 

b7> 

- b!5) 

;WEIT. ITERAT. ? JA ! 

;ZURÜCK INS PROGRAMM 


Wenn Sie dieses Programm entweder mit dem Monitor, 
einen Assembler eingeben, können Sie es nur auf 
abspeichern, da der KassettenHPuffer durch das 
selber benutzt wird. 


oder mit 
Diskette 
Programm 


Dieses Programm können Sie nun von BASIC aus verwenden. Sie 
müssen dazu dem BASIC Programm mitteilen, an welcher Adresse 
des Speichers sich das Maschinenprogramm befindet. Im BASIC 
Programm werden dann die zu berechnenden Parameter mit Hilfe 
der USR-Funktion an das Maschinenprogramm übergeben. 


Hier ein Beispiel: 


10 PQKE 1,60: REM LSB - 60 DECIMAL = 3C HEX 
20 POKE 2,03: REM MSB - 03 DECIMAL = 03 HEX 
30 A=10 
40 B=USR(A) 

50 PRINT "WURZEL VON "jA;” IST ";B 
60 END 


RUN (wird über Tastatur aus eingegeben) 


Die Ausgabe lautet dann: 


18 




DIE WURZEL VON 10 IST 3.16227766 


Auf diese Art und Weise können Sie sehr leicht eigene 
mathematische Routinen schreiben, oder schon bestehende (so 
wie die Funktion SQR) verbessern. 

Schreiben Sie doch mal eine Routine, die die Fakultäts- 
Funktion simuliert, oder ein Maschinenprogramm zur 
Polynomberechnung. 


Grundsätzlich läuft die Erstellung eines Assemblerprogramms 
nach folgendem Muster ab: 

1. ) Der Benutzer entwirft mit dem Editor das Quellprogramm. 

2. ) Der Assembler macht daraus das Zielprogramm. 

3. ) Dieses Zielprogramm ist dann als Maschinenprogramm 

1 auffähig. 

Auf den nächsten Seiten erfahren Sie noch mehr über 
Assemb1erprogrammierung. Wir können Ihnen in diesem Buch nur 
Denkanstöße geben. Erfahrung sammeln, können Sie nur durch 
viel, viel Übung. Dazu haben Sie aber ein Gerät das nicht nur 
ein trockener Computer ist (gibt es sowas überhaupt ?) , 
sondern auch ein hervorragender persöhnlicher Rechner. 
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*** NOCH MEHR ÜBER DEN ASSEMBLER *** 

An dieser Stelle wollen wir Ihnen nun eine kleine Routine 
vorstellen, die es ermöglicht, den Inhalt des Akkumulators 
au-f dem angeschlossenen Ausgabegerät auszugeben. Wenn Sie 
also Ihren Drucker als Ausgabegerät geöffnet haben (der BASIC 
Befehl lautet OPEN 4,4) wird die Ausgabe des Zeichens auch 
auf dem Drucker erfolgen. Dieser Druck kann natürlich nur 
dann erfolgen, wenn dieses Zeichen zu Drucken ist. Wie Sie 
wissen, gibt es ja verschiedene Kontrol1Zeichen die keine, 
oder eine fehlerhafte Ausgabe liefern. 

Auch dieses Programm steht wieder im Tastaturpuffer. Dadurch 
können Sie es zwar nicht auf Kassette abspeichern, aber nach 


Eingabe 

von 

Tastatur 

kann das Programm trotzdem gestartet 

werden. 






033C 




.0PT 

P2,01 

;ASSEMBLERANWEISUNG 

033C 





$033C 

;STARTADRESSE (828) 

033C 



BS0UT 

= 

$FFD2 

;ZEICHEN-AUSGABE 





;ASCII NACH 

HEX UMWANDLUNG 

033C 

C9 

3A 

ASCHEX 

CMP 

#$3A 

;ZEICHEN ■ ? ! 

033E 

08 



PHP 


5 SICHER ERGEBNIS 

033F 

29 

0F 


AND 

#$0F 

;BLENDE b7 BIS b4 AUS 

0341 

28 



PLP 


;HOLE ERGEBNIS 

0342 

?o 

02 


BCC 

WROB 

;4 BYTES WEITER 

0344 

6? 

08 


ADC 

#$08 

;ADD. AKKU+üBERTRAG+8 

0346 

60 



RTS 


;INS HAUPTPROGRAMM 





; EIN 

BYTE AUSGEBEN 

0347 

48 


WROB 

PHA 


;RETTE AKKU 

0348 

4A 



LSR 


;VERSCHIEBE b7 BIS b4 

034? 

4A 



LSR 


; NACH b3 BIS bO 

034A 

4A 



LSR 


; UND FÜLLE b7 BIS b4 

034B 

4A 



LSR 


; MIT 0 

034C 

20 

52 

03 

JSR 

HEXASC 

;SPRINGE ZUR UNTERROUTINE 

034F 

68 



PLA 


;HOLE AKKU ZURÜCK 

0350 

2? 

0F 


AND 

#$0F 

;BLENDE b7 BIS b4 AUS 

0352 

18 


HEXASC 

CLC 


;LÖSCHE DEN ÜBERTRAG 

0353 

69 

F6 


ADC 

#$F6 

;ADD. AKKU+üBERLAUF+246 

0355 

90 

02 


BCC 

* + 4 

;4 BYTES WEITER 

0357 

69 

06 


ADC 

#$06 

;ADD. AKKU+ÜBERLAUF+6 

035? 

69 

3A 


ADC 

#$3A 

;ADD. AKKU+ÜBERLAUF+58 

035B 

4C 

D2 

FF 

JMP 

BS0UT 

;DRUCKE AKKU 


Wir wollen nun dieses kleine Programm genau analysieren. Die 
erste Routine (ASCHEX) wandelt ein ASCII-Zeichen in einen 
Hex-Wert um und kehrt dann an die Stelle zurück, von der sie 
aufgerufen wurde. 

Die zweite Routine (WROB) ist eigentlich der Hauptteil dieses 
kleinen Programmes. Wenn Sie eine Hex-Zahl ausgeben wollen, 
können Sie natürlich nicht beide Zeichen auf einmal ausgeben 
(z.B. die Zahl FE = 254). Jede Ausgabeeinheit, sei es ein 
Drucker oder der Bildschirm, kann nur Zeichen für Zeichen 
ausgeben. Das bedeutet aber, daß diese Zahl in zwei Zahlen 
aufgeteilt und aufbereitet werden muß. In unserem Beispiel 
würden wir diese Zahl also in die Zeichen F und E aufspalten. 
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Dazu teilen wir diese B-Bit Zahl <8 Bit * 1 Byte kann 
bekanntlich Zahlen zwischen 0 und 255 darstellen) in jeweils 
zwei Hälften. Dies geschieht, indem wir die linken 4 Bits der 
Zahl FE, also die Zahl F, nach rechts verschieben und den 
freigewordenen Raum mit 0 füllen. Unabhängig von unserem 
Beispiel haben Sie dann auf jeden Fal^l_ eine Zahl zwischen 0 
und F. 

Der Befehl zur Verschiebung um ein Bit lautet: LSR. Da wir 
aber 4 Bits verschieben müssen, wenden wir den Befehl auch 4 
mal an. 

Durch dieses Verschieben würden Sie aber die rechte Seite der 
Zahl (also das E), einfach überschreiben und damit verlieren. 
Um das zu umgehen, müssen wir die Zahl irgendwo 
Zwischenspeichern. Die beste Möglichkeit bietet dafür der 
sogenannte Stapel. Die Zahl E kann dann überschrieben werden, 
ohne aber verloren zu gehen. Der Befehl für diese Operation 
lautet: PHA. 

Bevor wir also die 4 Bits verschieben, retten wir erst die 
ganze Zahl (FE). Sehen Sie sich dazu die ersten Zeilen der 
WROB-Routine einmal an. 

Nun haben Sie nur noch ein Zeichen (das F). Dieses Zeichen 
könnte nun direkt ausgegeben werden. Dazu muß es aber erst 
noch aufbereitet werden, da das Zeichen mit dem Code 15 (=F) 
nicht gleich dem Zeichen F ist. Sie können das ja ganz 
einfach nachprüfen, indem Sie sich von BASIC aus den CHR* von 
15 ausgeben lassen: PRINT CHR$(15). Wie Sie sehen, sehen Sie 
außer der Meldung READY gar nichts. So einfach ist das mit 
der Ausgabe also nicht. Wir müssen das Zeichen erst 
aufbereiten. 

Dazu rufen wir das Unterprogramm HEXASC auf, das aus einer 
Hex-Zahl ein ASCII-Zeichen macht. Zunächst wird das Überlauf— 
Flag gelöscht, damit die nächsten Additionen korrekt 
ausgeführt werden. In diesem Zusammenhang wollen wir noch 
erklären, was eigentlich ÜBERLAUF bedeutet. Ganz einfach 
gesagt: Eine Zahl ist größer als 255. Sie übersteigt also das 
Fassungsvermögen eines Bytes. Diese Flagge wird mit dem 
Befehl CLC also gelöscht. Das hat einen ganz bestimmten 
Grund. Sie verarbeiten ja bekanntlich Zahlen zwischen 0 und 9 
und Buchstaben von A bis B. Wenn Sie nun in der Reihenfolge 
der Hex-Werte (0-F), auch die entsprechenden Zeichen bilden 
würden, so wären die Resultate ab dem Hex-Wert A falsch. Denn 
in der Zeichentabelle, in der die 'Übersetzung' von Hex nach 
ASCII durchgeführt wird, befinden sich zwischen '9' und 'A' 
noch einige andere Sonderzeichen. 

Wir müssen also in der Übersetzung einen 'Sprung' machen. Aus 
diesem Grund addieren wir die Zahl 246. 

Haben wir eine Zahl <= 9 so ist das Resultat dieser Addition 
kleiner oder gleich 255. Die Überlauf Flagge wird also nicht 
gesetzt. Den ersten Teil, von 0 bis 9, können wir nun leicht 
am nicht gesetzten Überlauf erkennen. Nun können wir auch 
entscheiden, wo in der Zeichentabelle unser Zeichen liegt. 
Durch die Abfrage ob die Überlauf Flagge gestzt ist oder 
nicht, können wir an zwei verschiedene Stellen verzweigen. 
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Ist das Bit nicht gesetzt, addieren wir noch einmal die Zahl 
58. Der kleinste Wert wäre dabei die Zahl 48 (über1auf—Flagge 
ist nun natürlich gesetzt, aber das spielt keine Rolle mehr) 
oder aus der Zeichentabelle das Zeichen 0« Der größte Wert 
ist die Zahl 57 oder das Zeichen 9. 

War die über1 auf-Flagge aber im ersten Fall gesetzt, werden 
zu den 58 noch einmal 6 dazu addiert. Diese 6 machen genau 
den Sprung aus, den wir in der Zeichentabelle überbrücken 
müssen. Das Ergebnis dieser Addition liefert uns dann einen 
Wert zwischen 65 (das Zeichen dafür ist A) und 70 (dem 
Zeichen F) . Mit diesem Ergebnis können wir nun zu der 
Ausgaberoutine gehen und das Zeichen ausgeben. 

Diese Ausgaberoutine brauchen wir nicht selber zu schreiben. 
Es existiert bereits im ROM des VC-20 eine Routine die uns 
diese Arbeit abnimmt. Diese Routine finden wir ab der Adresse 
$FFD2 oder aber unter dem Namen BSOUT in dem ROM-LISTING. 

Nach der Ausgabe dieses ersten Zeichen (in unserem Beispiel 
das Zeichen F) können wir nun auch die zweite Zahl ausgeben. 
Hierzu müssen wir nun zunächst unseren ursprünglichen Wert 
(FE) wieder vom Stapel zurückholen. Denn in der Zwischenzeit 
haben wir ja das Zeichen E nicht mehr zur Verfügung. Mit dem 
Befehl PLP können wir die Zahl vom Stapel wieder in den Akku 
bringen. 

Nun gehen wir ähnlich der Ausgabe bei dem ersten Zeichen vor. 
Zunächst muß die linke Hälfte ausgeblendet werden (eben haben 
wir durch Verschieben die rechte Hälfte quasi ausgeblendet). 
Dieses Ausblenden geschieht durch eine einfache UND- 
Verknüpfung mit der Zahl F. Die Zahl F sieht binär so auss 

0 0 0 0 1 1 1 1 

Bei einer UND-Verknüpfung wird jedes Bit nur dann auf 1 
gesetzt, wenn beide Bits auf 1 gesetzt sind. Diesen Vorgang 
kann man sich graphisch am besten veranschaulichen! 

FE s 1 1 1 1 1 1 1 0 
verknüpft mit 0F sOOOOllll 

ergibt 0E; 00001 1 10 

So läßt sich also sehr leicht diese Zahl in den rechten Teil 
verwandeln. Der Befehl für diese UND-Verknüpfung mit F 
lautet: AND #*0F. 

Die Zahl steht nun wieder im richtigen Format und wir können 
Sie ausgeben. Dazu verwenden wir natürlich wieder unsere eben 
schon besprochene Routine. 

Dieses vollständige Programm soll Ihnen einen Eindruck über 
die Wirkungsweise des Assemblers geben. Auch hier können wir 
nur den Tip geben: Lassen Sie alles Gelernte noch einmal an 
sich vobeilaufen - wenn Sie etwas nicht verstanden haben, 
lesen Sie es ruhig noch ein zweites, drittes mal. Dann klappt 
es bestimmt. 
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Als Abschluß dieses Kapitels wollen wir Ihnen noch ein 
Programm vorstellen, mit dem Sie die vorgestel1ten 
Maschinenprogramm wenigstes eingeben können. Es ersetzt zwar 
keinen Monitor, Sie können aber die Opcodes direkt in Hex- 
Form eingeben, ohne diese erst in Dezimal umrechnen zu 
müssen. 

100 AD—828: STARTADRESSE DES MASCHINENPROGRAMMES (DEZIMAL) 

105 AN=34: REM AN-ANZAHL DER OPCODES 
110 FOR 1=0 T0 AN-1 
120 READ 0P$ 

130 G0SUB 60000 
140 P0KE AD+I,0P 
150 NEXT I 
160 END 

170 REM DIE OPCODES KÖNNEN NUN IN FORM VON DATA ZEILEN EINGEGEBEN 
180 REM WERDEN. ALS BEISP. HABEN WIR DAS AUSGABEPROGR. GENOMMEN, 
190 REM WAS WIR OBEN AUSFÜHRLICH BESPROCHEN HABEN. 

200 DATA C9,3A,08,29,OF,28,90,02 
210 DATA 69,08,60,48,4A,4A,4A,4A 
220 DATA 20,52,03,68,29,OF,18,69 
230 DATA F6,90,02,69,06,69,3A,4C 
240 DATA D2,FF 

60000 REM ROUTINE ZUR UMWANDLUNG VON HEX NACH DEZIMAL 
60010 QL*=LEFT$(OP$,l)s QR$=RIGHT*(ÜP$,1) 

60020 QL=VAL(QL$>; IF QR=0 AND QR$0"0" THEN QL=ASC (QR$) —55 
60030 QR=VAL(QR$): IF QR=0 AND QR^CVO’’ THEN QR=ASC<QR$) —55 
60040 0P=QL*16+QR 
60050 RETURN 

Mit diesem Programm können Sie nun Byte für Byte eingeben. 
Allerdings werden Sie recht schnell feststellen, daß Ihnen 
diese Art der Maschinenprogrammierung nicht mehr ausreicht. 

Dann kommen Sie automatisch auf einen Monitor zurück. 
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*** BASIC - MASCHINENSPRACHE - ASSEMBLER *** 


Wir haben in diesem Buch schon oft Verbindungen zwischen 
BASIC und Maschinensprache / Assembler angesprochen. Was 
passiert dabei eigentlich und wie funktionieren die 
verschiedenen Befehle ? 

1. ) NEW 

Ein Befehl der unter Umständen fatale Folgen haben kann - 
aber was macht er denn nun tatsächlich ? Wir haben oben schon 
seine Wirkung nach Laden von Maschinenprogrammen 
angesprochen. Alle Register werden wieder auf den Urzustand 
gesetzt - ein eventuell im Speicher befindliches BASIC- 
Programm wird natürlich gelöscht. 

2. > PEEK 

Mit dieser Funktion können Sie alle Speieherstellen au&lesen. 
Die erhaltenen Werte sind in dezimaler Form. Zur 
Maschinenprogrammierung empfiehlt sich daher eine 
Konvertierung dieser Werte in Hex-Zahlen. 

3. ) POKE 

Durch den POKE-Befehl werden einzelne Speicherstellen mit dem 
angegebenen Wert gefüllt. Auch hier erfolgt die Angabe wieder 
in dezimaler Form. Mit unserem Beispielsprogramm haben wir 
aber eine Möglichkeit geschaffen, auch Hex-Werte zu 
verarbeiten. 

4. ) SYS 

Dieser Befehl startet das, an der angegebenen Speieherstelle 
stehende, Maschinenprogramm. Es können allerdings keine 
PARAMETER (Werte) übergeben werden. 

5. ) USR 

Mit dieser Funktion rufen Sie ein Maschinenprogramm auf, 
dessen Startadresse Sie vorher dem Computer mitgeteilt haben. 
Beim VC-20 sind dies die Adressen 1 und 2. (s. SQR-Routine) 
Der Vorteil gegenüber dem SYS-Befehl liegt in der Möglichkeit 
Parameter zu übergeben. 
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Die 

Belequ 

nq der 

Zeropac 

je und weiterer wichtiqer Bereiche 

Hexadresse 

Dez 1 mal 

Belegung 

00 


0 


JMP-Befehl $4C für USR-Funktion 

01 - 

02 

1 - 

2 

$D248 USR-Vek tor 

03 - 

04 

3 - 

4 

Vektor für Umwandlung Fließkomma nach Fest 

05 - 

06 

5 - 

6 

Vektor Umwandlung Fest nach Fließkomma 

07 


7 


Suchzeichen 

08 


8 


Hoch komma-Flag 

09 


9 


Speicher für Spalte beim TAB-Befehl 

0A 


10 


Load = 0, Verify = 1, Flag des Interpreters 

OB 


11 


Zeiger in Eingabepuffer, Anzahl der Dimensionen 

oc 


12 


Flag für DIM 

OD 


13 


Typflag $00 = numerisch, $FF = String 

OE 


14 


Flag für Integer = $80, Real « $00 

OF 


15 


Hochkomma-Flag bei LIST 

10 


16 


Flag für FN 

1 1 


17 


Flag für INPUT $00, BET $40, READ $98 

12 


18 


Vorzeichen bei ATN 

13 


19 


aktives I/O-Gerät 

14 - 

15 

20 - 

21 

Integer-Adresse, z.B. Zeilennummer 

16 


22 


Zeiger auf Stringstack 

17 - 

18 

23 - 

24 

Zeiger auf zuletzt verwendeten String 

19 - 

21 

25 - 

33 

Str i ngstack 

22 - 

25 

34 - 

37 

Zeiger für diverse Zwecke 

26 - 

2 A 

38 - 

42 

Register für Funktionsauswertung und Arithmetik 

2B - 

2C 

43 - 

44 

Zeiger auf BAS IC~Programmstart 

2D - 

2E 

45 - 

46 

Zeiger auf Start der Variablen 

2F - 

30 

47 - 

48 

Zeiger auf Start der Arrays 

31 - 

32 

49 - 

50 

Zeiger auf Ende der Arrays 

33 - 

34 

51 - 

52 

Zeiger auf Beginn der Strings 

35 - 

36 

53 - 

54 

Hilfszeiger für Strings 

37 - 

38 

55 - 

56 

Zeiger auf BASIC-RAM Ende 

39 - 

3A 

57 - 

58 

augenblickliche BASIC-Zeilennummer 

3B - 

3C 

59 - 

60 

vorherige BASIC-Zeilennummer 

3D - 

3E 

61 - 

62 

Zeiger auf nächstes BAS IC-Stateraent für CONT 

3F - 

40 

63 - 

64 

augenblickliche Zeilennummer für DATA 

41 - 

42 

65 - 

66 

Zeiger auf nächstes DATA-Element 

43 - 

44 

67 - 

68 

Zeiger auf Herkunft der Eingabe 

45 - 

46 

69 - 

70 

Variab 1enname 

47 - 

48 

71 - 

72 

Variab 1enadresse 

49 - 

4 A 

73 - 

74 

Variablenzeiger für FGR/NEXT 

4B - 

40 

75 - 

76 

Zwischenspeicher für Programmzeiger 

4D 


77 


Maske für Verg1 eichoperationen 

4E - 

4F 

78 - 

79 

Zeiger für FN 

50 - 

53 

80 - 

83 

Stringdescriptor 

54 


84 


Konstante $4C JMP für Funktionen 

55 - 

56 

85 - 

86 

Sprungvektor für Funktionen 

57 - 

5B 

87 - 

91 

Register für Arithmetik, Akku#3 

5C - 

60 

92 - 

96 

Register für Arithmetik, Akku#4 

61 - 

65 

97 - 

101 

Fließkommaakku#!, FAC 

66 


102 


Vorzeichen von FAC 

67 


103 


Zähler für Polynomauswertung 

68 


104 


Rundungsbyte für FAC 

69 - 

6D 

105 - 

- 109 

Fl ießkommaakku#2, ARG 

6E 


110 


Vorzeichen von ARG 

6F 


111 


Vergleichsbyte der Vorzeichen von FAC und ARG 

70 


112 


Rundungsbyte für FAC 

71 - 

72 

113 - 

■ 114 

Zeiger für Polynoroauswertung 
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Hex adr esse 

Dezima 

1 

Belegung 

73 - 

8A 

115 - 

138 

CHRGET - Routine, holt Zeichen aus BASIC-Text 

7A - 

7B 

122 - 

123 

Pr ogrammz ei ger 

BB - 

BF 

139 - 

143 

letzter RND-Wert 

90 


144 


Statuswort ST 

91 


145 


Flag für Stop-Taste 

92 


146 


Zeitkonstante für Band 

93 


147 


Flag für LOAD $00 oder VERIFY $01 

94 


148 


Flag bei lEC-Ausgabe 

95 


149 


Ausgabepuffer für IEC-Bus 

96 


150 


Flag für EOT vom Band empfangen 

97 


151 


Zwischenspeicher für Register 

98 


152 


Anzahl der offenen Files 

99 


153 


aktives Eingabegerät 

9A 


154 


aktives Ausgabegerät 

9B 


155 


Parität für Band 

9C 


156 


Flag für Byte empfangen 

9D 


157 


Flag für Direkt-Modus $80, Programm $00 

9E 


158 


Band Pass 1 Checksumme 

9F 


159 


Band Pass 2 Feh 1 er korrektur 

A0 - 

A2 

160 - 

162 

Time 

A3 


163 


Bitzähler für serielle Ausgabe 

A4 


164 


Zähler für Band 

A5 


165 


Zähler für Band schreiben 

A6 


166 


Zeiger in Bandpuffer 

A7 - 

AB 

167 - 

171 

Arbeitspeicher für Bandein/ausgabe 

AC - 

AD 

172 - 

173 

Zeiger für Bandpuffer und Scrolling 

AE - 

AF 

174 - 

175 

Zeiger auf Programmende bei LOAD/SAVE 

BO - 

Bl 

176 - 

177 

Zeitkonstanten für Band-Timing 

B2 - 

B3 

178 - 

179 

Zeiger auf Bandpuffer 

B4 


180 


Bitzähler für Band 

B5 


181 


nächstes Bit für RS 232 

B6 


182 


Puffer für auszugebendes Byte 

B7 


183 


Länge des Filenamens 

B8 


184 


logische Filenummer 

B9 


185 


Se kundär adresse 

BA 


186 


Gerätenummer 

BB - 

BC 

187 - 

188 

Zeiger auf Filenamen 

BD 


189 


Arbeitsspeicher serielle Ein/Ausgabe 

BE 


190 


Passzähler für Band 

BF 


191 


Puffer für serielle Ausgabe 

CO 


192 


Flag für Bandmotor 

CI - 

C2 

193 - 

194 

Startadresse für Ein/Ausgabe 

C3 “ 

C4 

195 - 

196 

Endadresse für Ein/Ausgabe 

C5 


197 


letzte gedrückte Taste 

C6 


198 


Anzahl der gedrückten Tasten 

C7 


199 


Flag für RVS-Modus 

C8 


200 


Zeilenende für Eingabe 

C9 


201 


Cursorzeile für Eingabe 

CA 


202 


Cursorspalte für Eingabe 

CB 


203 


gedrückte Taste, keine Taste = 64 

cc 


204 


Flag für blinkenden Cursor 

CD 


205 


Zähler für Cursor blinken 

CE 


206 


Zeichen unter dem Cursor 

CF 


207 


Flag für Cursor blinken 

DO 


208 


Flag für Eingabe von Tastatur oder Bildschirm 

Dl - 

D2 

209 - 

210 

Zeiger auf Start der aktuellen Bi 1dschirrazei1e 

D3 


211 


Cursorspalte 

D 4 


212 


Flag für Cursor 

D5 


213 


Länge der Bildschirmzeile 
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Hex adresse 

Dezimal 

Belegung 

D 6 


214 


Cursorzei1e 

D7 


215 


diverse Zwecke 

D 8 


216 


Anzahl der Inserts 

D9 

- F2 

217 

- 242 

MSB der Bildschirmzeilenanfänge 

F3 

- p 4 

243 

- 244 

Zeiger in Farb-RAM 

F5 

- F 6 

245 

- 246 

Zeiger auf Tastatur-Dekodiertabel1e 

F7 

- F 8 

247 

- 248 

Zeiger auf RS 232 Eingabepuffer 

F9 

- FA 

249 

- 250 

Zeiger auf RS 232 Ausgabepuffer 


***********#####*##****##**# 


00FF 

- 

01 OA 

255 

- 

266 

Puffer für Umwandlung Fließkomma nach ASCII 

0100 

- 

013E 

256 

- 

318 

Speicher für Korrektur bei Bandeingabe 

0100 

- 

01 FF 

256 

- 

511 

Prozessor Stack 

0200 

- 

0258 

512 

- 

600 

BASIC Eingabepuffer 

0259 

- 

0262 

601 

- 

610 

Tabelle der logischen Filenummern 

0263 

- 

026C 

611 

- 

620 

Tabelle der 6 erätenummern 

026D 

- 

0276 

621 

- 

630 

Tabelle der Sekundäradresse 

0277 

- 

0280 

631 

- 

640 

Tastatur puf f er 

0281 

- 

0 282 

641 

- 

642 

Start des BASIC-RAM 

0283 

- 

0284 

643 

- 

644 

Ende des BASIC-RAM 

0285 



645 



Timeout-F1ag für seriellen IEC-Bus 

0286 



646 



augenblickliche Farbe 

0287 



647 



Farbe unter dem Cursor 

0288 



648 



High-Byte Video-RAM 

0289 



649 



Länge des Tastaturpuffers 

028A 



650 



Flag für Repeatfunktion für alle Tasten 

028B 



651 



Zähler für Repeat-Geschwindigkeit 

028C 



652 



Zähler für Repeat-Verzögerung 

028D 



653 



Flag für Shift und CTRL 

028E 



654 



Shif t-Flag 

028F 

** 

0290 

655 

- 

656 

Zeiger für Tastatur-Dekodierung 

0291 



657 



Flag für Shift/Commodore gesperrt 

0292 



658 



Flag für Scrol1en 

0293 



659 



RS 232 Kontrollwort 

0294 



660 



RS 232 Befehlswort 

0295 

- 

0296 

661 

- 

662 

Bit-Timing 

0297 



663 



RS 232 Status 

0298 



664 



Anzahl der Datenbits für RS 232 

0299 


029 A 

665 

- 

666 

RS 232 Baud-Rate 

029B 



667 



Zeiger auf empfangenes Byte RS 232 

029C 



668 



Zeiger auf Input von RS 232 

029D 



669 



Zeiger auf zu übertragendes Byte RS 232 

029E 



670 



Zeiger auf Ausgabe auf RS 232 

029F 

- 

02 A 0 

671 

- 

672 

Speicher für IRQ während Bandbetrieb 

02A1 



673 



VIA 2 NMI-Flag 

02A2 



674 



VIA 1 Timer A 

02A3 



675 



VIA 1 I nterruptf1ag 

02A4 



676 



VIA 1 Flag für Timer A 

02A5 



677 



Bi 1 dsch i rmz ei1e 

0300 

- 

0301 

768 

- 

769 

Vektor für Fehlermeldung 

0302 

- 

0303 

770 

- 

771 

Vektor für BAS IC-Warmstart 

0304 

- 

0305 

772 

- 

773 

Vektor für Umwandlung in I nt erpreterkode 

0306 

- 

0307 

774 

- 

775 

Vektor für Umwandlung in Klartext (LIST) 

0308 

- 

0309 

776 

- 

777 

Vektor für BAS IC-Befehlsadresse holen 

030A 

- 

03 OB 

778 

- 

779 

Vektor für Ausdruck auswerten 

03ÖC 



780 



Akku für SYS-Befehl 

03ÖD 



781 



X-Reg für SYS-Befehl 

Ö30E 



782 



Y-Reg für SYS-Befehl 
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Hexadresse 

Dezimal 

Belegung 

Ö3ÖF 



783 


Status 

für SYS-Befehl 

0314 

- 

0315 

788 

- 789 

FEABF 

IRQ-Vektor 

0316 

- 

0317 

790 

- 791 

IFED2 

BRK-Ve ktor 

0318 

- 

0319 

792 

- 793 

$FEAD 

NMI-Vektor 

03 1A 

- 

031B 

794 

- 795 

$F40A 

OPEN-Vektor 

031C 

- 

031D 

796 

- 797 

$F43A 

CLOSE-Vektor 

03 IE 

- 

031F 

798 

- 799 

$F2C7 

CHKIN~Vektor 

0320 

- 

0321 

800 

- 801 

*F309 

CKOUT-Vektor 

0322 

- 

0323 

802 

- 803 

$F3F3 

CLRCH-Vektor 

0324 

- 

0325 

804 

- 805 

*F20E 

INPUT-Vektor 

0326 

- 

0327 

806 

- 007 

*F27A 

OUTPUT-Vektor 

0328 

- 

0329 

808 

- 809 

$F770 

STQP-Vektor 

032A 

- 

032B 

810 

- 811 

FF1F5 

GET-Vektor 

032C 

- 

032D 

812 

- 813 

IF3EF 

CLALL-Vektor 

0330 

- 

0331 

816 

- 017 

$F549 

LOAD-Vektor 

0332 

- 

0333 

818 

- 819 

$F685 

BAVE-Vektor 

033C 

- 

03FB 

828 

-1019 

Bandpuffer 

0400 

- 

OFFF 

1024 

-4095 

Raum -für 3K-RAM-Er wei ter ung 

1000 

- 

11FF 

4096 

-4607 

Video- 

RAM bei mehr als 3K RAM-Erweiterung 

1 E00 

- 

1 FFF 

7680 

-8191 

Video- 

■RAM bei Grundversion und 3K-Erweiterung 

2000 

- 

7FFF 

8192 

-32767 

Raum für 8 - 24K-RAM/RGM-Erweiterung 

8000 

- 

8 FFF 

32768 

-36B63 

Character-Generator 

9000 

- 

9 0 0 F 

36864 

-36879 

Video- 

Control 1 er 

9110 

- 

9 11F 

37136 

-37151 

VIA 6522 1 

9120 

- 

912F 

37152 

-37167 

VIA 6522 2 

A000 

- 

BFFF 

40960 

-49051 

Raum für Auto-Start-ROM oder RAM 

cooo 

- 

FFFF 

49052 

-65535 

BASIC- 

Interpreter und Betriebssystem 
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Die Routinen des BASIC-Interpreters 


In der folgenden Übersicht sind die Adressen der Routinen des BASIC-Inte 
des VC 20 zusammengestellt. Bei der Übertragung von Maschinenprogrammen 
20 auf den Coamodore 64 ist eine einfache Umrechnung der Adressen mögli 
VC 20 Adressen zwischen $COOO bis $DFFF wird einfach $2000 abgezogen, 
64er Adresse zu erhalten, bei Adressen ab $E0Ö0 wird 3 dazuaddiert. Ai 
beim VC 20 wird $A3BB auf dem 64er und aus $E094 wird $E097. 

Adresse Beschreibung 
C000 Startvektor 

C002 ■ NM I - Vektor 

C004 ' cbmbasic' 

C00C Adressen der BASIC-Befehle minus 1 
C052 Adressen der BAS IC-Funktionen 

C080 Hierarchiekodes und Adressen der BASIC-Operataren 

C09E Liste der BASIC-Befehlsworte 

C19E BA51C-Feh1 ermeldüngen 

C328 Adressen der Fehlermeldungen 

C364 Meldungen des BASIC-Interpreters 

C38A Stapelsuchroutine für FOR-NEXT und GQSUB 

C3B8 Blockverschieberoutine 

C3FB prüft auf Platz im Stapel 

C408 schafft Platz im Speicher 

C435 Ausgabe von 'out of memmory' 

C437 Fehlermeldung ausgeben 

C469 Break-Einsprung 

C474 Ready-Einsprung 

C480 Eingabe-Warteschleife 

C49C Löschen und Einfügen von Programmzeilen 

C533 BASIC-Programmzei 1en neu binden 

C560 holt eine Zeile in den Eingabepuffer 

C571 Ausgabe von 'string too long' 

C579 Umwandlung einer Zeile in Interpreterkode 

C613 Startadresse einer BASIC-Zeile suchen 

C642 BASIC-Befehl NEW 

C65E BASIC-Befehl CLR 

C68E Programmzeiger auf BASIC-Start setzen 

C69C BASIC-Befehl LIST 

C717 I nt erpreterkode in Befehlswort umwandeln 

C742 BASIC-Befehl F0R 

C7AE Interpreterschieife, führt BASIC-Befehle aus 
C7ED führt einen BASIC-Befehl aus 

C81D BASIC-Befehl REST0RE 

C82C bricht Programm bei gedrückter Stop-Taste ab 

C82F BASIC-Befehl STOP 

C831 BASIC-Befehl END 

CB57 BASIC-Befehl CONT 

C871 BASIC-Befehl RUN 

C883 BASIC-Befehl GOSUB 

C8A0 BASIC-Befehl GOTO 

C8F8 Basic-Befehl RETURN 

C8F8 BASIC-Befehl DATA 

C906 sucht nächstes Statement 

C909 sucht nächste Zeile 

C928 BASIC-Befehl IF 

C93B BASIC-Befehl REM 

C94B BASIC-Befehl ON 

C96B sucht Adresse einer BASIC-Zeile 
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Adresse Beschreibung 


C9A5 BASIC-Befehl LET 

CA80 BASIC-Befehl PRINT# 

CAB6 BASIC-Befehl CMD 

CAAO BASIC-Befehl PRINT 

CB1E String ausgeben 

CB3E Leerzeichen bzw. Cursor right ausgeben 

CB4D Fehlerbehandlung bei Eingabe 

CB7B BASIC-Befehl BET 

CBA5 BASIC-Befehl INPUT# 

CBBF BASIC-Befehl INPUT 

CC06 BASIC-Befehl READ 

CCFC '?extra ignored' und ?redo from Start' 

CD 1D BASIC-Befehl NEXT 

CD8A FRMNUM holt Ausdruck und prüft auf numerisch 

CD8D prüft auf numerisch 

CD8F prüft auf String 

CD99 Ausgabe von 'typ mismatch' 

CD9E FRMEVL holt und wertet beliebigen Ausdruck aus 

CE83 arithmetischen Ausdruck holen 

CEA8 Fließkommakonstante Pi 

CED4 BASIC-Befehl NOT 

CEF1 holt Ausdruck in Klammern 

CEF7 prüft auf 'Klammer zu' 

CEFA prüft auf 'Klammer auf' 

CEFD prüft auf 'Komma' 

CEFF prüft auf Zeichen im Akku 

CF08 Ausgabe von 'syntax error' 

CF28 holt Variable 

CFE6 BASIC-Befehl 0R 

CFE9 BASIC-Befehl AND 

DO 16 Vergleichsoperationen 

DOB1 BASIC-Befehl DIM 

D113 prüft auf Buchstabe 

D194 berechnet Zeiger auf erstes Arrayelement 

D1A5 Fließkommakonstante -32768 

D1AA FAC nach Integer wandien 

D245 Ausgabe von 'bad subscript' 

D248 Ausgabe von 'illegal quantity' 

D34C berechnet Arraygröße 

D37D BASIC-Funktion FRE 

D39E BASIC-Funktion POS 

D3A6 Test auf Direkt-Modus 

D3AB Ausgabe von illegal direct' 

D3AE Ausgabe von 'undef’d function' 

D3B3 BASIC-Befehl DEF 

D3E1 FN-Syntax prüfen 

D3F4 BASIC-Funktion FN 

D465 BASIC-Funktion STR$ 

D475 Stringverwaltung, Zeiger auf String berechnen 
D4B7 String einrichten 

D526 ßarbage Collection, nichtgebrauchte Strings entfernen 
D63D Stringverknüpfung ' + ' 

D6A3 Stringverwaltung FRESTR 

D6EC BASIC-Funktion CHR* 

D700 BASIC-Funktion LEFT* 

D72C BASIC-Funktion RIGHT* 

D737 BASIC-Funktion MID$ 

D77C BASIC-Funktion LEN 

D782 Stringparameter holen 
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Adresse Beschreibung 

D7BB BASIC-Funktion ASC 

D79B Holt Byte-Ausdruck (0 bis 255) 

D7AD BASIC-Funktion VAL 

D7EB Holt Adresse (0 bis 65535) und Byte-Wert (0 bis 255) 

D7F7 FAC nach Adressformat wandlen (Bereich 0 bis 65535) 

D8ÜD BASIC-Funktion PEEK 

D824 BASIC-Befehl PQKE 

DB2D BASIC-Befehl WAIT 

DB49 FAC = FAC + 0.5 


D850 

Minus 

FAC — Konstante 

(A/Y) 

- FAC 

D853 

Minus 

FAC = ARG - FAC 



D867 

Plus 

FAC - Konstante 

(A/Y) 

- FAC 

DB6A 

Plus 

FAC * ARG + FAC 



D97E 

Ausgabe 

‘ von ' overf1ow' 




D9BC Fließkommakonstanten für LOG 

D9EA BASIC-Funktion LOG 

DA28 Multiplikation FAC = Konstante (A/Y) * FAC 

DA2B Multiplikation FAC = ARG * FAC 

DA8C ARG ~ Konstante (A/'Y) 

DAE2 FAC = FAC * 10 

DAF9 Fließkommakonstante 10 

DAFE FAC = FAC / 10 

DBOF FAC ■ Konstante (A/Y) / FAC 

DB 12 FAC = ARG / FAC 

DB8A Ausgabe von 'division by :ero' 

DBA2 FAC = Konstante (A/Y) 

DBC4 Ak ku#4 = FAC 

DBCA Akku#3 = FAC 

DBDO Variable * FAC 

DBFC FAC = ARG 

DCOC ARG = FAC 

DC1B FAC runden 

DC2B Vorzeichen von FAC holen 

DC39 BASIC-Funktion 5GN 

DC58 BASIC-Funktion ABS 

DC5B Konstante (A/Y) mit FAC vergleichen 

DC9B Umwandlung FAC nach Integer 

DCCC BASIC-Funktion INT 

DCF3 Umwandlung ASCII nach Fließkomma 

DDB3 F1ießkommakonstanten für Fließkomma nach ASCII 

DDC2 Ausgabe der Zeilennumer bei Fehlermeldung 

DDCD Positive Integerzahl (0 bis 65535) ausgeben 

DDDD FAC nach ASCII-Format wandeln 

DF11 Fließ kommakonstante 0.5 

DF16 Binärzahlen für Umwandlung FAC nach ASCII 

DF71 BASIC-Funktion SDR 

DF78 Potenzierung FAC - Konstante (A/Y) hoch FAC 

DF7B Potenzierung FAC - ARG hoch FAC 

DFBF Fließkommakonstanten für EXP 

DFED BASIC-Funktion EXP 

EÖ4Ö Po 1ynomberechnung 

EÖ56 Polynomberechnung 

E08A Fließkümmakonstanten für RND 

E094 BASIC-Funktion RND 

E104 Ausgabe von 'break' 

E109 BSOUT ein Zeichen ausgeben 

E10F BASIN ein Zeichen empfangen 

E115 CKÜUT Ausgabegerät festsetzen 

E11B CHKIN Eingabegerät festsetzen 
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Adresse Beschreibung 


E121 GETIN ein Zeichen holen 

E127 BASIC-Befehl SYS 

E153 BASIC-Befehl SAVE 

El62 BASIC-Befehl VERIFY 

E165 BASIC-Befehl LOAD 

ElBB BASIC-Befehl OPEN 

E1C4 BASIC-Befehl CLOSE 

E1D1 Parameter für LOAD und SAVE holen 

E216 Parameter für OPEN holen 

E261 BASIC-Funktion COS 

E26B BASIC-Funktion SIN 

E2B1 BASIC-Funktion TAN 

E2DD Fließkommakonstanten für SIN und COS 

E30B BASIC-Funktion ATN 

E33B Fließkommakonstanten für ATN 

E37B BAS I C-Kaltst ar t 

E387 Kopie der CHRSET-Routine 

E39F Anfangswert für RND-Funktion 

E3A4 RAM für BASIC initialisieren 

E444 Tabelle der BASIC-Vektoren 

E45B BASIC-Vektoren laden 
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Die Routinen des VC 20 Betriebssystems 


In der folgenden Übersicht sind die wichtigsten Adressen des VC 20 
Betriebssystems zusammengestellt. Um die Übertragung von VC 20-Programmen auf 
den neuen Commodore 64 zu erleichtern, ist gleichzeitig auch die entsprechende 
Adresse des Commodore 64 angegeben, 


64 

VC 20 

Beschreibung 

E45F 

E429 

Meldungen des Betriebssystems 

E500 

E500 

holt BASIC-Adresse des CIAs bzw. VIAs 

E 5 0 5 

E505 

holt Bi 1dschirmformat Zei1en/Spalten 

E50A 

E50A 

Cursor setzen bzw. Cursorposition holen 

E518 

E51 8 

Bi 1dschirm-Reset 

E544 

E55F 

Bildschirm loschen 

E566 

E58 1 

Cursor Home 

E5A0 

E5BB 

Videocontroller initialisieren 

E5B4 

E5CF 

Zeichen aus Tastaturpuffer holen 

E5CA 

E5E5 

Warteschleife für Tastatur eingabe 

E632 

E64F 

ein Zeichen vom Bildschirm holen 

E684 

E6B8 

testet auf Hochkomma 

E6B6 

E6EA 

MSB für Zeilenanfänge berechnen 

E8DA 

E92 1 

Tabelle der Farbkodes 

E8EA 

E975 

Bildschirm scrollen 

E9C8 

EA56 

Zeile nach oben schieben 

E9FF 

EA8D 

Bildschirmzeile löschen 

EA1C 

EAA 1 

Zeichen und Farbe auf Bildschirm setzen 

EA24 

EAB2 

Zeiger auf Farb-RAM berechnen 

EA31 

EABF 

Interrupt-Routine 

EA87 

EB1E 

T astaturabfrage 

EB48 

EBDC 

Prüfung auf Shift, CTRL und Commodore-Taste 

EB79 

EC46 

Zeiger auf Tastatur-Dekodiertabel1en 

EB81 

EC5E 

Dekodier tabel1en 

EC44 

ED21 

Prüfung auf Steuerzeichen 

EC78 

ED69 

Dekodier tabel1en 

ECB9 

EDE4 

Konstanten für Videocontroller 

ECE7 

EDF3 

'1oad (er} run (er)' 

ECFO 

EDFE 

Tabelle der LSB der Bildschirmanfänge 

EDÖ9 

EE14 

TALK senden 

EDÖC 

EE 1 7 

LISTEN senden 

ED40 

EEE4 

ein Byte auf IEC-Bus ausgeben 

EDB9 

EECO 

Sekundäradresse für LISTEN senden 

EDC7 

EECE 

Sekundäradresse für TALK senden 

EDEF 

EEF6 

UNTALK senden 

EDFE 

EF04 

UNLISTEN senden 

EE13 

EF1 9 

ein Byte vom IEC-Bus holen 

EEB3 

EF96 

Verzögerung eine Millisekunde 

EEBB 

EFA3 

RS 232 Ausgabe 

EF4A 

F027 

Anzahl der RS 232 Datenbits berechnen 

FÖ14 

FOED 

Ausgabe in RS 232 Puffer 

F086 

F14F 

GET von RS 232 

F0A4 

F 160 

Timer für lEC-Timeout setzen 

FOBD 

F1 74 

Fehlermeldungen des Betriebssystems 

F12B 

F1E0 

Meldungen ausgeben 

F157 

F20E 

BASIN ein Zeichen holen 

F1CA 

F27A 

BSOUT ein Zeichen ausgeben 

F20E 

F2C7 

CHKIN festlegen des Eingabegeräts 

F250 

F 3 0 9 

CKOUT festlegen des Ausgabegeräts 

F29 1 

F34A 

CLOSE 
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64 

VC 20 

Beschreibung 

F30F 

F3CF 

logische Filenummer suchen 

F31F 

F3DF 

Fi 1eparameter setzen 

F32F 

F3EF 

CLALL schließt alle I/Q-Kanäle 

F34A 

F40A 

OPEN 

F49E 

F542 

LOAD 

F5AF 

F647 

'searching for filename' ausgeben 

F5D2 

F66A 

'1oading/verifying' ausgeben 

F5DD 

F675 

SAVE 

F68F 

F728 

'saving filename' ausgeben 

F69B 

F734 

UDTIM laufende Zeit erhöhen 

F 6 DD 

F760 

Time holen 

F6E4 

F767 

Time setzen 

F6ED 

F770 

Stop-Taste abfragen 

F6FB 

F77E 

Fehlermeldungen des Betriebssystems ausgeben 

F72C 

F7AF 

Programmheader vom Band lesen 

F76A 

F7E7 

Header auf Band schreiben 

F7D0 

F84D 

Startadresse des Bandpuffers holen 

F7D7 

F854 

Start und Endadresse des Bandpuffers setzen 

F7EA 

F867 

Bandheader nach Namen suchen 

FBOD 

F88A 

Bandpufferzeiger erhöhen 

F817 

F894 

wartet auf Bandtaste für lesen 

F82E 

F8AB 

fragt Bandtaste ab 

F838 

F8B7 

wartet auf Bandtaste für schreiben 

F84 1 

F8C0 

Block vom Band lesen 

F84A 

F8C9 

Programm vom Band laden 

F864 

F8EA 

Bandpuffer auf Band schreiben 

F86B 

F8EA 

Block bzw. Programm auf Band schreiben 

F8BE 

F92F 

I/O-Abschluß abwarten 

FBE1 

F94B 

testet auf Stop-Taste 

F92C 

F98E 

Interrupt-Routine für Band lesen 

FB97 

F8DB 

Bitzähler für serielle Ausgabe setzen 

FBA6 

FBEA 

ein Bit auf Band schreiben 

FBCD 

FCOB 

Interrupt-Routine für Band schreiben 

FCB8 

FCF6 

IRß-Vektor setzen 

FCCA 

FD08 

Bandmotor ausschalten 

FCD1 

FD11 

prüft auf Erreichen der Endadresse 

FCDB 

FD 1B 

Adresszeiger erhöhen 

FCE2 

FD22 

RESET 

FD02 

FD3F 

prüft auf ROM in $8000 bzw. $AOOO 

FD10 

FD4D 

ROM-Modul Identifizierung 

FD 15 

FD52 

Hardware und 1/0 Vektoren setzen bzw. holen 

FD30 

FD6D 

Tabelle der Hardware und I/O-Vektoren 

FD5G 

FD8D 

Arbeitsspeicher initialisieren 

FD9B 

FD6D 

Tabelle der IRQ-Vektoren 

FDF9 

FE49 

Parameter für Filenamen setzen 

FEOÖ 

FE50 

Parameter für aktives File setzen 

FE07 

FE57 

Status holen 

FE i 8 

FE6<b 

Flag für Meldungen des Betriebssystems setzen 

FEI C 

FE6A 

Status setzen 

FE21 

FEF6 

Timeout-Flag für IEC-Bus setzen 

FE25 

FE73 

RAM-Obergrenze setzen bzw. holen 

FE34 

FE82 

RAM-Untergrenze setzen bzw. holen 

FE43 

FEA9 

NM I-Routine 

FEC2 

FF5C 

Konstanten für RS 232 Baud-Rate 

FF48 

FF72 

Interrupthandler 

FF8 i 

FF8A 

Sprungtabel1e der Betriebssystem-Routinen 
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Wenn man eigene Programme in Maschinensprache schreibt, kann man sich durch 
geschickte Ausnutzung der ROM-Routinen viel Arbeit sparen. Besonders die 
Routinen zur Bedienung der Peripheriegeräte bieten sich dazu an. 

Die wichtigsten Routinen des VC 20 sind an Ende des ROMs als Sprungtabel1e auf 
die eigentlichen Routinen zusammenqefaßt. Diese Adressen wurden beim Erscheinen 
vom neuen Commadore Rechnern nicht geändert, sondern nur erweitert. Deshalb es 
ist zum Beispiel möglich Routinen, die für einen großen CBM-Rechner oder den 
Commodore 64 geschrieben wurden, ohne Schwierigkeiten auf dem VC 20 zu über¬ 
nehmen, sofern nur diese sogenannten ' Kernal '-Routinen benutzt wurden. Die 
Sprungtabei 1e des VC 20 ist mit der des Commodore 64 identisch (dieser enthält 
nur noch drei zusätzliche Adressen), sodaß es mit Hilfe dieser Routinen ein 
leichtes ist, Programme des VC 20 zu konvertieren. Wir wollen uns jetzt einige 
dieser Routinen etwas näher ansehen. 


Adresse Funktion 

$FF90 setzt Flag für Ausgabe von Systemmeldungen 

$FF93 schickt Sekundäradresse nach einem LISTEN-Befeh 1 
auf den IEC-Bus 

$FF96 schickt Sekundär ad resse nach einem TALK-Befehl 

auf den IEC-Bus 

IFF99 holt bei gesetzem Carry-Flag die höchste RAM- 

Adresse nach X und Y, bei gelöschtem Carry- 
Flag wird die Adresse von X und Y gesetzt. 

IFF9C die selbe Funktion wie oben, jedoch für den 
RAM-Anf ang 

$FF9F fragt die Tastatur ab 

$FFA2 setzt das Time-out Flag für den IEC-Bus 

$FFA5 holt ein Byte vom IEC-Bus in den Akku 

$FFAS gibt ein Byte aus dem Akku an den IEC-Bus aus 

$FFAB sendet UNTALK-Befehl auf den IEC-Bus 

$FFAE sendet UNLISTEN-Befeh 1 auf den IEC-Bus 

$FFB1 sendet LISTEN-Befeh 1 auf den IEC-Bus 

*FFB4 sendet TALK-Befehl zum IEC-Bus 

$FFB7 holt das Statuswort in den Akku 

tFFBA setzt die Fileparameter, Akku muß logischen 

Filenummer enthalten, X = Gerätenummer und 
Y = Sekundäradresse 

TFFBD setzt Parameter des Filenamens, Akku muß 

Länge des Namens enthalten, X und Y enthalten 



Adresse Funktion 


die Adresse des Filenamens 

$FFC0 ÜPEN-Befehl, öffnet logische Datei 

$FFC3 CLDSE-Befehl, schließt logische Datei, 

Akku muß logische Filenummer enthalten 

$FFC6 CHKIN setzt folgende Eingabe auf logische 

Datei, die in X übergeben wird 
Die logische Datei muß vorher mit der 
GPEN-Routine geöffnet werden 

$FFC9 CKOUT setzt folgende Ausgabe auf logische 
Datei, die in X übergeben wird 
Die logische Datei muß vorher mit der 
OPEN-Routine geöffnet werden 

$FFCC CLRCH setzt die Ein- und Ausgabe wieder 
auf Standard (Tastatur/Bi 1dschirm) 

$FFCF BASIN Eingabe, holt ein Zeichen in den Akku 

$FFD2 BSOUT Ausgabe, gibt Zeichen im Akku aus 

$FFD5 LOAD, lädt Programm in den Speicher 

$FFD8 SAVE, speichert Programm ab 

$FFDB setzt die laufende Zeit neu 

$FFDE holt die laufende Zeit . 

$FFE1 fragt die STÜP-Taste ab 

$FFE4 GET, holt ein Zeichen in den Akku 

$FFE7 CLALL, setzt alle Ein-/Ausgabekanä1e 
zurück, die Dateien werden jedoch 
nicht geschlossen 

$FFEA erhöht die laufende Zeit um eine 
sechzigstel Sekunde 

$FFED SCREEN holt die Anzahl der Zeilen und 
und Spalten des Bildschirms 

fFFFO bei gelöschtem Carry-Flag wird der Cursor 

auf die Position X/Y gesetzt, bei gesetztem 
Carry-Flag wird die Cursorposition geholt 

$FFF3 holt die Startadresse des I/O-Bausteins 

Zur Bedienung des Bildschirm stehen auch einige Routinen zur Verfügung, die Sie 
als Anwender benutzen können. 


TE518 kompletter Reset des Bildschirms 

und der Tastaturabfrage 
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Adresse 

*E55F 

*E581 

*E5B7 

*E5BB 

*E5CF 

IE5E5 

*E975 

$EA8D 

$EAA1 


Funktion 

CLR, löscht den Bildschirm 

HOME, bringt den Cursor in die linke obere 
Ecke des Bildschirms 

berechnet die Cursorposition 

lädt den Videocontrol1 er mit den Standardwerten 

holt ein Zeichen aus dem Tastaturpuffer 

wartet aut Tastatureingabe 

Bildschirm scrollen, schiebt Bildschirm 
um eine Zeile nach oben 

löscht eine Bildschirmseile 

setzt ein Zeichen mit Farbe auf dem Bildschirm 
(Bildschirmkode im Akku, Farbe in X) 
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VC 20 ROM-Listin 


C000 78 E3 $E378 BASIC-Kaltstart 

C002 67 E4 $E467 BASIC-Warrostart 

C004 43 42 4D 42 41 53 49 43 cbmbasic 

****************************** Adressen der BASIC-Befeh 1e (minus 1) 

C00C 30 C8 41 C7 

C010 ID CD F7 CB A4 CB BE CB 

C018 80 D0 05 CC A4 C9 9F CB 

C020 70 CB 27 C9 IC C8 82 C8 

C028 Dl C8 3A C9 2E C8 4A C9 

C030 2C DB 64 El 52 El 61 El 

C038 B2 D3 23 D8 7F CA 8F CA 

C040 56 C8 9B C6 5D C6.85 CA 

C048 26 El BA El C3 El 7A CB 

C050 41 C6 

***************************** Adressen der BASIC-Funktionen 

C052 39 DC CC DC 58 DC 

C058 00 00 7D D3 9E D3 71 DF 

C060 94 E0 EA D9 ED DF 61 E2 

C068 68 E2 Bl E2 0B E3 0D D8 

C070 7C D7 65 D4 AD D7 8B D7 

C078 EC D6 00 D7 2C D7 37 D7 

***************************** Hierarchiekodes und Adressen 

C080 79 69 D8 79 52 D8 7B 2A der BAS IC-Operatoren 

C088 DA 7B 11 DB 7F 7A DF 50 

C090 E8 CF 46 E5 CF 7D B3 DF 

C098 5A D3 CE 64 15 D0 


************ 

HHH 

HHH 

(>*****1 

HHH 

HHHt 

BASIC-Bcf ehlsworte 

C09E 

45 

4E 







en 

C0A0 

C4 

46 

4F 

D2 

4E 

45 

58 

D4 

DfoRnex T 

C0A8 

44 

41 

54 

CI 

49 

4E 

50 

55 

datAinpu 

C0B0 

54 

A3 

49 

4E 

50 

55 

D4 

44 

t#inpuTd 

C0B8 

49 

CD 

52 

45 

41 

C4 

4C 

45 

iMreaDle 

C0C0 

D4 

47 

4F 

54 

CF 

52 

55 

CE 

TgotQruN 

C0C8 

49 

C6 

52 

45 

53 

54 

4F 

52 

iFrestor 

C0D0 

C5 

47 

4F 

53 

55 

C2 

52 

45 

EgosuBre 

C0D8 

54 

55 

52 

CE 

52 

45 

CD 

53 

turNreMs 

C0E0 

54 

4F 

D0 

4F 

CE 

57 

41 

49 

toPoNwai 

C0E8 

D4 

4C 

4F 

41 

C4 

53 

41 

56 

TloaDsav 

C0F0 

C5 

56 

45 

52 

49 

46 

D9 

44 

EverifYd 

C0F8 

45 

C6 

50 

4F 

4B 

C5 

50 

52 

eFpokEpr 

C100 

49 

4E 

54 

A3 

50 

52 

49 

4E 

int#prin 

C108 

D4 

43 

4F 

4E 

D4 

4C 

49 

53 

TconTlis 

CI IQ 

D4 

43 

4C 

D2 

43 

4D 

C4 

53 

TelRcmDs 

CI 18 

59 

D3 

4F 

50 

45 

CE 

43 

4C 

ySopeNcl 

C120 

4F 

53 

C5 

47 

45 

D4 

4E 

45 

osEgeTne 

C128 

D7 

54 

41 

42 

AQ 

54 

CF 

46 

Wtab <töf 

C130 

CE 

53 

50 

43 

A8 

54 

48 

45 

Nspc(the 

C138 

CE 

4E 

4F 

D4 

53 

54 

45 

D0 

NnoTsteP 

C140 

AB 

AD 

AA 

AF 

DE 

41 

4E 

C4 

+-*/ A anD 

C148 

4F 

D2 

BE 

BD 

BC 

53 

47 

CE 

□R<=>sgN 

C150 

49 

4E 

D4 

41 

42 

D3 

55 

53 

inTabSus 

C158 

D2 

46 

52 

C5 

50 

4F 

D3 

53 

RfrEpoSs 

C160 

51 

D2 

52 

4E 

C4 

4C 

4F 

C7 

qRrnDlöS 
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C16 8 

45 

58 

D0 

43 

4F 

D3 

53 

49 

exPcoSsi 

Ci 70 

CE 

54 

41 

CE 

41 

54 

CE 

50 

NtaNatNp 

C 173 

45 

45 

CB 

4C 

45 

CE 

53 

54 

eeKleNst 

Ci 80 

52 

A4 

56 

41 

CC 

41 

53 

C3 

r$vaLasC 

C188 

43 

4B 

52 

A4 

4C 

45 

46 

54 

chrlleft 

C 1 90 

A4 

52 

49 

47 

48 

54 

A4 

4D 

$r i ght$m 

C198 

49 

44 

A4 

47 

CF 

00 



odtgO 

***************************** 

BASIC-Feh 

C 19E 

54 

4F 







to 

C1 AB 

4F 

20 

4D 

41 

4E 

59 

20 

46 

o many f 

CI A3 

49 

4C 

45 

D3 

46 

49 

4C 

45 

ileSfile 

C1B0 

20 

4F 

50 

45 

CE 

46 

49 

4C 

opeNfi1 

C1B8 

45 

20 

4E 

4F 

54 

20 

4F 

50 

e not op 

C1C0 

45 

CE 

46 

49 

4C 

45 

20 

4E 

e Hi i 1 e n 

C1 C 8 

4F 

54 

20 

46 

4F 

55 

4E 

C4 

ot founD 

C1D0 

44 

45 

56 

49 

43 

45 

20 

4E 

device n 

C1D8 

4F 

54 

20 

50 

52 

45 

53 

45 

ot prese 

C1E0 

4E 

D4 

4E 

4F 

54 

20 

49 

4E 

nTnot in 

C1E8 

50 

55 

54 

20 

46 

49 

4C 

C5 

put fiiE 

C1F0 

4E 

4F 

54 

20 

4F 

55 

54 

50 

not outp 

C1F8 

55 

54 

20 

46 

49 

4C 

C5 

4D 

ut filEm 

C200 

49 

53 

53 

49 

4E 

47 

20 

46 

issing i 

C208 

49 

4C 

45 

20 

4E 

41 

4D 

C5 

ile namE 

C210 

49 

4C 

4C 

45 

47 

41 

4C 

20 

illegal 

C218 

44 

45 

56 

49 

43 

45 

20 

4E 

device n 

C220 

55 

4D 

42 

45 

D2 

4E 

45 

58 

umbeRnex 

C228 

54 

20 

57 

49 

54 

48 

4F 

55 

t withou 

C230 

54 

20 

46 

4F 

D2 

53 

59 

4E 

t foRsyn 

C238 

54 

41 

D8 

52 

45 

54 

55 

52 

taXretur 

C240 

4E 

20 

57 

49 

54 

48 

4F 

55 

n withou 

C248 

54 

20 

47 

4F 

53 

55 

C2 

4F 

t gosuBo 

C250 

55 

54 

20 

4F 

46 

20 

44 

41 

ut of da 

C258 

54 

CI 

49 

4C 

4C 

45 

47 

41 

t Ai11ega 

C260 

4C 

20 

51 

55 

41 

4E 

54 

49 

1 quanti 

C268 

54 

D9 

4F 

56 

45 

52 

46 

4C 

tYoverf1 

C270 

4F 

D7 

4F 

55 

54 

20 

4F 

46 

oWout of 

C278 

20 

4D 

45 

4D 

4F 

52 

D9 

55 

memorYu 

C280 

4E 

44 

45 

46 

27 

44 

20 

53 

ndef 'd s 

C288 

54 

41 

54 

45 

4D 

45 

4E 

D4 

tatemenT 

C290 

42 

41 

44 

20 

53 

55 

42 

53 

bad subs 

C298 

43 

52 

49 

50 

D4 

52 

45 

44 

eriplred 

C2A0 

49 

4D 

27 

44 

20 

41 

52 

52 

im ' d arr 

C2A8 

41 

D9 

44 

49 

56 

49 

53 

49 

aYdivisi 

C2B0 

4F 

4E 

20 

42 

59 

20 

5A 

45 

on by ze 

C2B8 

52 

CF 

49 

4C 

4C 

45 

47 

41 

rÜi1lega 

C2C0 

4C 

20 

44 

49 

52 

45 

43 

D4 

1 direcT 

C2C8 

54 

59 

50 

45 

20 

4D 

49 

53 

type mis 

C2D0 

4D 

41 

54 

43 

C8 

53 

54 

52 

matcHstr 

C2D8 

49 

4E 

47 

20 

54 

4F 

4F 

20 

ing too 

C2E0 

4C 

4F 

4E 

C7 

46 

49 

4C 

45 

1 onG-fi 1 e 

C2E8 

20 

44 

41 

54 

CI 

46 

4F 

52 

datAfor 

C2F0 

4D 

55 

4C 

41 

20 

54 

4F 

4F 

mula too 

C2F8 

20 

43 

4F 

4D 

50 

4C 

45 

D8 

compleX 

C300 

43 

41 

4E 

27 

54 

20 

43 

4F 

can't co 

C308 

4E 

54 

49 

4E 

55 

C 5 

55 

4E 

ntinuEun 

C310 

44 

45 

46 

27 

44 

20 

46 

55 

def'd fu 

C318 

4E 

43 

54 

49 

4F 

CE 

56 

45 

nctioNve 

C320 

52 

49 

46 

D9 

4C 

4F 

41 

C4 

rifYloaD 
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***************************** 


C328 

9E 

CI 

AC 

01 

B5 Ci 02 01 

0330 

00 

CI 

E2 

Ci 

F0 01 FF 01 

C338 

10 

C2 

25 

02 

35 02 3B 02 

0340 

4F 

C2 

5A 

02 

6 A 02 72 02 

C348 

7F 

C2 

90 

02 

9D 02 AA 02 

0350 

BA 

C2 

08 

02 

D5 02 E4 02 

C358 

ED 

C2 

00 

03 

0E 03 IE 03 

0360 

24 

C3 

83 

03 


***************************** 

C364 

0D 

4F 

4B 

0D 


C368 

00 

00 

20 

45 

52 52 4F 52 

C370 

00 

20 

49 

4E 

20 00 0D 0A 

C378 

52 

45 

41 

44 

59 2E 0D 0A 

C380 

00 

BD 

0 A 

42 

52 45 41 4B 

0388 

00 

A0 




***************************** 

C38A 

BA 




TSX 

C38B 

E8 




I NX 

0380 

E8 




INX 

C38D 

E8 




I NX 

C38E 

E8 




INX 

C38F 

BD 

01 

01 


LDA $0101,X 

0392 

09 

81 



CMP #$81 

0394 

00 

21 



BNE $C3B7 

0396 

A5 

4A 



LDA $4A 

0398 

D0 

0A 



BNE $C3A4 

C39A 

BD 

02 

01 


LDA $0102,X 

C39D 

85 

49 



STA $49 

C39F 

BD 

03 

01 


LDA $0103,X 

C3A2 

85 

4A 



STA $4A 

C3A4 

DD 

03 

01 


CMP $0103,X 

C3A7 

00 

07 



BNE $C3B0 

C3A9 

A5 

49 



LDA $49 

C3AB 

DD 

02 

01 


CMP $0102,X 

C3AE 

F0 

07 



BEQ $C3B7 

C3B0 

8 A 




TXA 

C3B1 

1 B 




CLC 

C3B2 

69 

12 



ADO #$12 

C3B4 

AA 




TAX 

C3B5 

D0 

D8 



BNE $C3BF 

C3B7 

60 




RTS 

***************************** 

C3B8 

20 

08 

04 


JSR $0408 

C3BB 

85 

31 



STA $31 

C3BD 

84 

32 



STY $32 

C3BF 

38 




SEC 

0300 

A5 

5A 



LDA $5A 

0302 

E5 

5F 



SBC $5F 

0304 

85 

22 



STA $22 

C3C6 

A8 




TAY 

0307 

A5 

5B 



LDA $5B 

C3C9 

E5 

60 



SBC $60 

C3CB 

AA 




TAX 

C3CC 

E8 




INX 

C3CD 

98 




TYA 

C3CE 

F0 

23 



BEQ $C3F3 


Adressen der Fehlermeldungen 


Meldungen des 
.ok. 

., error 
. in ... 
ready... 

... break 


Interpreters 


Stapelsuchroutine -für FDR-NEXT + G05UB 


FOR-Kode 


Variablenname vergleichen 


18 Bytes Für nächste Schleife addieren 


Blocktransfer-Routine 
prüft auf Platz im Speicher 
Eingabe: 

$5F/$60 Alter Blückanfang 
$5A/$5B Altes Blockende + 1 
$58/$59 Neues Blockende + 1 

Einsprung $C3BF 


40 



C3D0 

A5 

5A 

LDA 

$5A 

C3D2 

38 


SEC 


C3D3 

E5 

22 

SBC 

$22 

C3D 5 

85 

5A 

STA 

$5A 

C3D7 

B0 

03 

BCS 

$C3DC 

C3D9 

C6 

5B 

DEC 

$5B 

C3D8 

38 


SEC 


C3DC 

A5 

58 

LDA 

$58 

C3DE 

E5 

22 

SBC 

$22 

C3E0 

85 

58 

STA 

$58 

C3E2 

B0 

08 

BCS 

$C3EC 

C3E4 

C6 

59 

DEC 

$59 

C3E6 

90 

04 

BCC 

$C3EC 

C3EB 

Bi 

5A 

LDA 

USA) , Y 

C3EA 

91 

58 

STA 

($58) ,Y 

C3EC 

88 


DEY 


C3ED 

D0 

F9 

BNE 

$C3E8 

C3EF 

Bl 

5A 

LDA 

($5A),Y 

C3F1 

91 

58 

STA 

($58) ,Y 

C3F3 

C6 

5B 

DEC 

$5B 

C3F5 

C6 

59 

DEC 

$59 

C3F7 

CA 


DEX 


C3F8 

D0 

F2 

BNE 

$C3EC 

C3FA 

60 


RTS 


***************************** 

C3FB 

0A 


ASL 


C3FC 

69 

3E 

ADC 

#$3E 

C3FE 

B0 

35 

BCS 

$C435 

C400 

85 

22 

STA 

$22 

C4B2 

BA 


TSX 


C403 

E4 

22 

CPX 

$22 

C405 

90 

2E 

BCC 

$C435 

C407 

60 


RTS 


***************************** 

C40B 

C4 

34 

CPY 

$34 

C40A 

90 

28 

BCC 

$C434 

C40C 

D0 

04 

BNE 

$C412 

C40E 

C5 

33 

CMP 

$33 

C 410 

90 

22 

BCC 

$C434 

C412 

48 


PHA 


C413 

A2 

09 

LDX 

#$09 

C415 

98 


TYA 


C 416 

48 


PHA 


C4 i 7 

B5 

57 

LDA 

$57,X 

C 4 19 

CA 


DEX 


C41A 

10 

FA 

BPL 

$C4 16 

C41C 

20 

26 D5 

JSR 

$D526 

C41F 

A2 

F7 

LDX 

#$F7 

C421 

68 


PLA 


C422 

95 

61 

STA 

$61, X 

C424 

E8 


I NX 


C425 

30 

FA 

BMI 

$C421 

C427 

68 


PLA 


C428 

A8 


TAY 


C429 

68 


PLA 


C42A 

C4 

34 

CPY 

$34 

C42C 

90 

06 

BCC 

$C434 

C42E 

D0 

05 

BNE 

$C435 


Platz im Stapel ? 

Akku muß dazu die halbe Zahl an 
erforderlichen Platz enthalten 
gibt 'out of memory' 


Platz im Speicher ? 

A/Y Adresse bis zu der Platz 
benötigt wird. 


Register -für Arithmetik retten 


Garbage Collection 


Register zurückholen 


Ok, fertig 

kein Platz, dann 'out of memory' 
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C430 

05 

33 


CMP 

$33 


0432 

B0 

01 


BCS 

$0435 


C434 

60 



RTS 



C435 

A2 

10 


LDX 

#$10 

Fehlernummer für 'aut of memary' 

***************************** 

Fehlermeldung ausgeben 

C437 

60 

00 

03 

JMP 

($0300) 

JMP $C43A 

C43A 

8 A 



TXA 


XR enthält Fehlernummer $01..$1E 

C43B 

0A 



ASL 



C43C 

AA 



TAX 



C43D 

BD 

26 

03 

LDA 

$0326,X 


C440 

85 

22 


STA 

$22 

Adresse der Fehlermeldung holen 

C442 

BD 

27 

03 

LDA 

$0327,X 


C445 

85 

23 


STA 

$23 


C447 

20 

CO 

FF 

JSR 

$FFCC 

CLRCH I/Q-Kanal rücksetzen 

C44A 

A9 

00 


LDA 

#$00 


C44C 

85 

13 


STA 

$13 

Ausgabeflag rücksetzen 

C44E 

20 

D7 

CA 

JSR 

$CAD7 

'CR' und 'LF' ausgeben 

C451 

20 

45 

CB 

JSR 

$CB45 

'?' ausgeben 

C454 

A0 

00 


LDY 

#$00 


0456 

Bl 

22 


LDA 

($22),Y 

Text der Fehlermeldung 

C458 

48 



PHA 



C459 

29 

7F 


AND 

#$7F 


C45B 

20 

47 

CB 

JSR 

$CB47 

ausgeben 

C45E 

C8 



INY 



C45F 

68 



PLA 



0460 

10 

F4 


BPL 

$0456 


C 4 62 

20 

7A 

06 

JSR 

$C67A 

BASIC-Zeiger initialisieren, CONT sperren 

0465 

A9 

69 


LDA 

#$69 


0467 

A0 

03 


LDY 

#$C3 

Zeiger auf 'error' 

0469 

20 

iE 

CB 

JSR 

$CB 1E 

String ausgeben 

0460 

A4 

3A 


LDY 

$3A 


C46E 

08 



INY 



C46F 

F0 

03 


BEQ 

$0474 

Direkt-ftodus ? 

0471 

20 

02 

DD 

JSR 

$DDC2 

'in' Zeilennummer ausgeben 

0474 

A9 

76 


LDA 

#$76 


0476 

A0 

C3 


LDY 

#$03 

Zeiger auf 'ready. ' 

0478 

20 

IE 

CB 

JSR 

$CB1E 

String ausgeben 

C47B 

A9 

80 


LDA 

#$80 


C47D 

20 

90 

FF 

JSR 

$FF90 

Flag für Direkt-Modus setzen 

***************************** 

Eingabe-Warteschleife 

0480 

60 

02 

03 

JHP 

($0302) 

JMP $0483 

0483 

20 

60 

05 

JSR 

$0560 

BASIC-Zeile in Eingabepuffer holen 

0486 

86 

7A 


STX 

$7A 


0488 

84 

7B 


STY 

I7B 

CHRGET-Pointer auf Eingabepuffer 

C48A 

20 

73 

00 

JSR 

$0073 * 

CHRGET nächstes Zeichen holen 

C48D 

AA 



TAX 



C48E 

F0 

F0 


BEQ 

$0480 

Puffer leer, dann weiter warten 

0490 

A2 

FF 


LDX 

#$FF 


0492 

86 

3A 


STX 

$3 A 

Kennzeichen für Direkt-Modus 

0494 

90 

06 


BCC 

$0490 

Ziffer, dann Programmzeile einfügen 

0496 

20 

79 

05 

JSR 

$0579 

BASIC-Zeile in Interpreter-Code wandeln 

0499 

40 

El 

07 

JMP 

$C7E 1 

Befehl ausführen 

***************************** 

Löschen + Einfügen von Programmzeilen 

0490 

20 

6 B 

09 

JSR 

$C96B 

Zei1ennummer holen 

C49F 

20 

79 

05 

JSR 

$0579 

BASIC-Zeile in Interpreter-Code wandeln 

C4A2 

84 

0B 


STY 

$0B 
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C4A4 

20 

13 C6 

JSR 

$C613 

Zeilenadresse holen 

C4A7 

90 

44 

BCC 

$C4ED 

vorhanden? nein, dann Löschen übergehen 

C4A9 

A0 

01 

LDY 

#$01 


C4AB 

Bl 

5F 

LOA 

($5F),Y 


C4AD 

85 

23 

STA 

$23 


C4AF 

A5 

2 D 

LOA 

$2D 


C 4 B1 

85 

22 

STA 

$22 


C4B3 

A5 

60 

LOA 

$60 


C4B5 

85 

25 

STA 

$25 


C4B7 

A5 

5F 

LOA 

$5F 


C4B9 

88 


DEY 



C4BA 

Fl 

5F 

SBC 

($5F) ,Y 


C4BC 

18 


CLC 



C4BD 

65 

2 D 

ADC 

$2D 


C4BF 

85 

2 D 

STA 

$2D 


C4C1 

85 

24 

STA 

$24 


C4C3 

A5 

2E 

LOA 

$2E 


C4C5 

69 

FF 

ADC 

#$FF 


C4C7 

85 

2E 

STA 

$2E 


C4C9 

E5 

60 

SBC 

$60 


C4CB 

AA 


TAX 



C4CC 

38 


SEC 



C4CD 

A5 

5F 

LOA 

$5F 


C4CF 

E5 

20 

SBC 

$2D 


C4D1 

A3 


TAY 



C4D2 

B0 

03 

BCS 

$C4D7 


C4D4 

E8 


1 NX 



C4D5 

C6 

25 

DEC 

$25 


C4D7 

18 


CLC 



C4D8 

65 

22 

ADC 

$22 


C4DA 

90 

03 

BCC 

$C4DF 


C4DC 

C6 

23 

DEC 

$23 


C4DE 

18 


CLC 



C4DF 

Bl 

22 

LDA 

(♦22),Y 

Verschiebeschlei Fe 

C4E1 

91 

24 

STA 

($24) , Y 


C4E3 

C8 


INY 



C4E4 

D0 

F9 

BNE 

$C4DF 


C4E6 

E6 

23 

INC 

$23 


C4EB 

E6 

25 

INC 

in 

IN 

¥*■ 


C4EA 

CA 


DEX 



C4EB 

00 

F2 

BNE 

$C4DF 


***************************** 

Programmzei 1e einfügen 

C4ED 

20 

59 C6 

JSR 

$C659 

CLR-Bef ehl 

C4F0 

20 

33 C5 

JSR 

$C533 

Programmzeilen neu binden 

C4F3 

AD 

00 02 

LDA 

$0200 

Zeichen im Puffer ? 

C4F6 

F0 

88 

BEQ 

$C480 

nein, dann zur Warteschleife 

C4F8 

18 


CLC 



C4F9 

A5 

20 

LDA 

$2D 


C4FB 

85 

5A 

STA 

$5A 


C4FD 

65 

0B 

ADC 

$0B 


C4FF 

85 

58 

STA 

$58 


C501 

A4 

2E 

LDY 

$2E 


C503 

84 

5B 

STY 

$5B 


C505 

90 

01 

BCC 

$C508 


C507 

C8 


INY 



C508 

84 

59 

STY 

$59 


C50A 

20 

B8 C3 

JSR 

$C3B8 

BASIC-Zeilen verschieben 

C50D 

A5 

14 

LDA 

$14 


C50F 

A4 

15 

LDY 

$15 



43 



CSU 

SD 

FE 01 

STA 

$01 FE 


C514 

BC 

FF 01 

STY 

♦ 01 FF 


CS 17 

A5 

31 

LDA 

$31 


C519 

A4 

32 

LDY 

$32 


C51B 

85 

2D 

STA 

$2D 


C51D 

84 

2E 

STY 

$2E 


C 51F 

A4 

0 B 

LDY 

$0B 


C521 

88 


DEY 



C522 

B9 

FC 01 

LDA 

$01 FC,Y 


C525 

91 

5F 

STA 

($5F),Y 


CS27 

88 


DEY 



C528 

10 

F8 

BPL 

$C522 


C52A 

20 

59 C6 

J SR 

$C659 

CLR-Bef ehl 

C52D 

20 

33 C5 

J SR 

$C533 

Programme! len neu binden 

C530 

4C 

80 C4 

JMP 

$C480 

zur Eingabe-Warteschleife 

****************************** 

Programmzei1en neu binden 

C533 

A5 

2B 

LDA 

$2B 


C535 

A4 

2C 

LDY 

$2C 


C537 

85 

22 

STA 

$22 


C539 

84 

23 

STY 

$23 


C53B 

18 


CLC 



C53C 

AB 

01 

LDY 

«$01 


C53E 

Bl 

22 

LDA 

($22),Y 


C540 

F0 

ID 

BEQ 

$C55F 


C542 

AB 

04 

LDY 

#$04 


C544 

C8 


I NY 



C545 

Bl 

22 

LDA 

($22) , Y 


C547 

D0 

FB 

BNE 

$C544 


C549 

C8 


INY 



C54A 

98 


TYA 



C54B 

65 

22 

ADC 

$22 


C54D 

AA 


TAX 



C54E 

A0 

00 

LDY 

#$00 


C550 

91 

22 

STA 

($22),Y 


C552 

A5 

23 

LDA 

$23 


C554 

69 

00 

ADC 

#$00 


C556 

C8 


INY 



C557 

91 

22 

STA 

($22) ,Y 


C559 

86 

22 

STX 

$22 


C55B 

85 

23 

STA 

$23 


C55D 

90 

DD 

BCC 

$C53C 


C55F 

60 


RTS 



***************************** 

Eingabe einer Zeile 

C560 

A2 

00 

LDX 

#$00 


C562 

20 

0F El 

J SR 

$E 10F 

BASIN ein Zeichen holen 

C565 

C9 

0D 

CNF 

#$0C 

RETURN-Taste ? 

C567 

F0 

0 D 

BEQ 

$C576 

ja, dann Eingabe beenden 

C569 

9D 

00 02 

STA 

$0200,X 

Zeichen im Eingabepuffer speichern 

C56C 

E8 


I NX 



C56D 

E0 

59 

CPX 

#$59 

Eingabepuffer voll ? 

C56F 

90 

Fl 

BCC 

$C562 


C571 

A2 

17 

LDX 

#$17 

Nummer für 'string too long' 

C573 

4C 

37 C4 

JMP 

$C437 

Fehlermeldung ausgeben 

C576 

4C 

CA CA 

JMP 

$CAC A 

Puffer mit 0 abschließen, CR ausgeben 

***************************** 

Umwandl. einer Zeile in Interpreter-Kodi 

C579 

6 C 

04 03 

JHP 

($0304) 

JMP $C57C 

C57C 

A6 

7A 

LDX 

$7A 
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C57E 

A0 

04 

LDV 

4104 

C580 

84 

0F 

STY 

$0F 

C582 

BD 

00 02 

LDA 

$0200, X 

C585 

10 

07 

BPL 

$C58E 

C587 

C9 

FF 

CMP 

#$FF 

C589 

F0 

3E 

BEQ 

$C5C9 

C58B 

E8 


I NX 


C58C 

D0 

F4 

BNE 

$C5S2 

C58E 

C9 

20 

CMP 

#$20 

C590 

F0 

37 

BEQ 

$C5C9 

C592 

85 

08 

STA 

$08 

C594 

C9 

22 

CMP 

#$22 

C596 

F0 

56 

BEQ 

$C5EE 

C598 

24 

0F 

BIT 

$0F 

C59A 

70 

2D 

BVS 

$C5C9 

C59C 

C9 

3F 

CMP 

#$3F 

C59E 

D0 

04 

BNE 

$C 5A4 

C5A0 

A9 

99 

LDA 

#$99 

C5A2 

D0 

25 

BNE 

$C5C9 

C5A4 

C9 

30 

CMP 

#$30 

C5A6 

90 

04 

BCC 

$C5AC 

C5A8 

C9 

3C 

CMP 

#$3C 

C5AA 

90 

ID 

BCC 

$C5C9 

C5AC 

84 

71 

STY 

$71 

C5AE 

A0 

00 

LDY 

#$00 

C5B0 

84 

0B 

STY 

$0B 

C5B2 

88 


DEY 


C5B3 

86 

7A 

STX 

$7A 

C5B5 

CA 


DEX 


C5B6 

CB 


INY 


C5B7 

E8 


INX 


C5B8 

BD 

00 02 

LDA 

$0200,X 

C5BB 

38 


SEC 


C5BC 

F9 

9E C0 

SBC 

$C09E,Y 

C5BF 

F0 

F5 

BEQ 

$C5B6 

CSC 1 

C9 

80 

CMP 

#$80 

C5C3 

D0 

30 

BNE 

$C5F5 

C5C5 

05 

0B 

ORA 

$0B 

C5C7 

A4 

71 

LDY 

$71 

C5C9 

E8 


INX 


C5CA 

C8 


INY 


C5CB 

99 

FB 01 

STA 

$01FB , Y 

C5CE 

B9 

FB 01 

LDA 

$01FB , Y 

C5D1 

F0 

36 

BEQ 

$C609 

C5D3 

38 


SEC 


C5D4 

E9 

3A 

SBC 

#$3A 

C5D6 

F0 

04 

BEQ 

$C 5DC 

C5D8 

C9 

49 

CMP 

#$49 

C5DA 

D0 

02 

BNE 

$C5DE 

C5DC 

85 

0F 

STA 

$0F 

C5DE 

38 


SEC 


C5DF 

E9 

55 

SBC 

#$55 

C5E1 

D0 

9F 

BNE 

$C582 

C5E3 

85 

08 

STA 

$08 

C5E5 

BD 

00 02 

LDA 

$0200,X 

C5E8 

F0 

DF 

BEQ 

$C5C9 

C5EA 

C5 

08 

CMP 

$08 

C5EC 

F0 

DB 

BEQ 

$C5C9 

C5EE 

C8 


INY 


C5EF 

99 

FB 01 

STA 

$01 FB, Y 


Hochkomma-Fl ag 
Zeichen aus Puffer holen 
kein Interpreter-Kode ? 
Kode für Pi 


Leerzeichen 


'"' Hochkomma 


'?' Fragezeichen 

durch Kode für PRINT ersetzen 


Zeichen im Puffer 

mit Befehlsworten in Tabelle vergleichen 

gefunden, Interpreter-Kode gleich Zähler + $B0 


Interpreterkode speichern 
und Statusregister setzen 
Ende, dann fertig 

':' Trennzeichen 
ja 

DATA - Kode ? 


REM-Kode ? 
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***************************** Startadr. einer Prog."Zeile berechnen 
C613 A5 2B LDA $2B 

C615 A6 2C LDX $2C 

C617 A0 01 LDY #$01 Zeilennummer in 14/15 

C619 85 5F STA $5F Adresse in 5F/60 

C61B 86 60 STX $60 

C61D Bl 5F LDA ($5F),Y Zeile vorhanden dann C=1 

C61F F0 1F BEQ $C640 Zeile nicht vorhanden dann C=0 

C621 C8 INY $5F/$6ß enthält dann Adresse 

C622 C8 INY der nächsten Zeile 

C623 A5 15 LDA $15 

C625 Dl 5F CMP ($5F) ,Y 

C627 90 18 BCC $C641 

C629 F0 03 BEQ $C62E 

C62B 88 DEY 

C62C D0 09 BNE $C637 

C62E A5 14 LDA $14 

C630 88 DEY 

C631 Dl 5F CMP ($5F),Y 

C633 90 0C BCC $C641 

C635 F0 0A BEQ IC641 

C637 88 DEY 

C638 Bl 5F LDA ($5F) ,Y 

C63A AA TAX 

C63B 88 DEY 

C63C Bl 5F LDA ($5F) ,Y 

C63E B0 D7 BCS $C617 

C640 18 CLC 

C641 60 RTS 

***************************** Basic-Befehl NEW 

C642 D0 FD BNE $C641 

C644 A9 00 LDA #$00 

C646 A8 TAY 

C647 91 2B STA ($2B) ,Y 

C649 C8 INY Zweimal $00 an Programmstart 

C64A 91 2B STA ($2B),Y 

C64C A5 2B LDA $2B 

C64E 18 CLC 

C64F 69 02 ADC #$02 

C651 85 2D STA $2D 

C653 A5 2C LDA $2C Variablenstart = Programmstart + 2 

C655 69 00 ADC #$00 
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C657 

85 

2E 

STA $2E 


0659 

20 

8E C6 

JSR $C68E 

CHRGET-Zeiger auf Programmstart 

0650 

A9 

00 

LDA #$00 


***************************** 

Basic-Befehl CLR 

C65E 

D0 

2D 

BNE $0680 


0660 

20 

E7 FF 

JSR $FFE7 

CLALL I/O-Kanäle zurücksetzen 

0663 

A5 

37 

LDA $37 


0665 

A4 

33 

LOY $38 


0667 

85 

33 

STA $33 

Stringstart auf BASIC-RAM-Ende 

C669 

84 

34 

STY $34 


0668 

A5 

2D 

LDA $20 


0660 

A4 

2E 

LDY $2E 


C66F 

85 

2F 

STA $2F 


0671 

84 

30 

STY $30 

Variablenende = Variab 1enanfang 

0673 

85 

31 

STA $31 

C675 

84 

32 

STY $32 


C677 

20 

10 C8 

JSR $081D 

RESTQRE-Befehl 

C67A 

A2 

19 

LDX #$19 


0670 

86 

16 

STX $16 

Descriptor-Index rücksetzen 

C67E 

68 


PLA 

C67F 

A8 


TAY 

Rücksprungadresse holen 

C 6 80 

68 


PLA 


C68 i 

A2 

FA 

LDX #$FA 

Stackpointer initialisieren 

0683 

9A 


TXS 

0684 

48 


PHA 


0685 

98 


TYA 

Rücksprungadresse zurücksetzen 

0686 

48 


PHA 


0687 

A9 

00 

LOA #$00 


0689 

85 

3E 

STA $3E 

CONTINUE sperren 

C68B 

85 

10 

STA $10 

C68D 

60 


RTS 


******##***####******#**###*# 

Prograuunzeiger auf BASIC-Start - 

C68E 

18 


CLO 


C68F 

A5 

2B 

LDA $2B 


0691 

69 

FF 

ADO #$FF 


0693 

85 

7A 

STA $7A 


C695 

A5 

2C 

LDA $20 


0697 

69 

FF 

ADO #$FF 


C699 

85 

7B 

STA $7B 


C69B 

60 


RTS 


*#***##**#**#**#*#*#******#*# 

Basic-Befehl LIST 

C69C 

90 

06 

BCC $C6A4 

Ziffer (Zei1ennummer) ? 

C69E 

F0 

04 

BEQ $C6A4 

nur LIST 

C6A0 

C9 

AB 

CUP #$AB 

Kode 

C6A2 

00 

E9 

BNE $0680 


C6A4 

20 

6B C9 

JSR $C96B 

Zei1ennumraer holen 

C6A7 

20 

13 C6 

JSR $0613 

Zeilenadresse holen 

C6AA 

20 

79 00 

JSR $0079 

CHRGOT laufendes Zeichen holen 

C6AD 

F0 

00 

BEQ $C6BB 


C6AF 

C9 

AB 

CUP #$AB 

Kode 

C6B1 

00 

BE 

BNE $0641 

nein, dann SYNTAX ERROR 

C6B3 

20 

73 00 

JSR $0073 

CHRGET nächstes Zeichen holen 

C6B6 

20 

6B 09 

JSR $C96B 

Zeilennummer holen 

C6B9 

00 

86 

BNE $0641 


C6BB 

68 


PLA 


C6BC 

68 


PLA 


C6BD 

A5 

14 

LDA $14 
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C6BF 

05 

15 


ORA 

*15 

zweite Zei1ennummer gleich null ? 

C6C1 

D0 

06 


BNE 

♦ C6C9 


C6C3 

A9 

FF 


LDA 

#*FF 


C6C5 

85 

14 


STA 

*14 


C6C7 

85 

15 


STA 

*15 


C6C9 

A0 

01 


LDY 

#*01 


C6CB 

84 

0F 


STY 

*0F 


C6CD 

Bl 

5F 


LDA 

{*5F), Y 

Linkadresse high 

C6CF 

F0 

43 


BE8 

*C714 

Progranwnende, dann fertig 

C6D1 

20 

2C 

CB 

JSR 

*C82C 

prüft auf STÜP-Taste 

C6D4 

20 

D7 

CA 

JSR 

*CAD7 

'CR' und 'LF' ausgeben 

C6D7 

C8 



I NY 



C6D8 

Bl 

5F 


LDA 

<*5F),Y 


C6DA 

AA 



TAX 



C6DB 

C8 



INY 



C6DC 

Bl 

5F 


LDA 

( *5F) , Y 


C6DE 

C 5 

15 


Clip 

*15 


C6E0 

D0 

04 


BNE 

*C6E6 


C6E2 

E4 

14 


CPX 

*14 


C6E4 

F0 

02 


BEQ 

*C6E8 


C6E6 

B0 

2C 


BCS 

*C714 


C6E8 

84 

49 


STY 

*49 


C6EA 

20 

CD 

DD 

JSR 

*DDCD 

Zeilennumer ausgeben 

C6ED 

A9 

20 


LDA 

#*20 

' ' Leerzeichen 

C6EF 

A4 

49 


LDY 

*49 


C6F1 

29 

7F 


AND 

#*7F 


C6F3 

20 

47 

CB 

JSR 

*CB47 

Zeichen ausgeben 

C6F6 

C9 

22 


CUP 

#*22 

Hochkomma 

C6F8 

D0 

06 


BNE 

IC700 


C6FA 

A5 

0F 


LDA 

*0F 


C6FC 

49 

FF 


EOR 

#*FF 

Hochkommaflag umdrehen 

C6FE 

85 

0F 


STA 

*0F 


C700 

C8 



INY 



C701 

F0 

11 


BEQ 

*C714 


C703 

Bl 

5F 


LDA 

(*5F),Y 


C705 

D0 

10 


BNE 

*C717 

kein Zeilenende, dann listen 

C707 

AB 



TAY 



C708 

Bl 

5F 


LDA 

(*5F),Y 


C70A 

AA 



TAX 



C70B 

CB 



INY 



C70C 

Bl 

5F 


LDA 

< *5F),Y 


C78E 

86 

5F 


STX 

*5F 


C 710 

85 

60 


STA 

*60 


C712 

D0 

B5 


BNE 

*C6C9 


C714 

4C 

74 

C4 

JMP 

*C474 

zum BASIC-Warmstart 

****************************** 

Interpreter-Kode in Klartext umwandel 

C717 

6C 

06 

03 

JMP 

(*0306) 

JMP *C71A 

C71A 

10 

D7 


BPL 

*C6F3 

kein Interpreterkode, so ausgeben 

C71C 

C9 

FF 


CMP 

#*FF 

Kode für Pi 

C71E 

F0 

D3 


BEQ 

*C6F3 

so ausgeben 

C720 

24 

0F 


BIT 

*0F 

Hochkommamodus 

C722 

30 

CF 


BMI 

*C6F3 

dann Zeichen so ausgeben 

C724 

38 



SEC 



C725 

E9 

7F 


SBC 

#$7F 


C727 

AA 



TAX 



C728 

84 

49 


STY 

*49 


C72A 

A0 

FF 


LDY 

#*FF 


C72C 

CA 



DEX 



C72D 

F0 

08 


BEQ 

*C737 

erstes Befehlswort ? 
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C72F 

08 



I NY 




0730 

B9 

9E 

00 

LDA 

*C09E, 

, Y 

Offset für Xtes Befehlswort finden 

C733 

10 

FA 


BPL 

*C72F 



C735 

30 

F5 


BMI 

*0720 


Bit 7 gesetzt, nächstes Wort 

C737 

08 



INY 



C738 

B9 

9E 

00 

LDA 

*C09E, 

, Y 

Befehlswort aus Tabelle holen 

C73B 

30 

B2 


BMI 

SC6EF 



C73D 

20 

47 

CB 

JSR 

*CB47 


Zeichen ausgeben 

C740 

D0 

F5 


BNE 

*0737 


*ft****#*#t«**t**«*t****«*«#ft«* 

BASIC-Befehl FOR 

C742 

A9 

80 


LDA 

4*80 


Integervariablen sperren 

C744 

85 

10 


STA 

*10 


0746 

20 

A5 

09 

JSR 

*C9A5 


LET-Befehl, setzt Variablenwert 

C749 

20 

8A 

03 

JSR 

*C38A 


sucht offene FOR-NEXT-Schleife mit gleicher 

C74C 

D0 

05 


BNE 

*0753 


Variabler 

C74E 

8A 



TXA 




C74F 

69 

0F 


ADO 

#*0F 



C751 

AA 



TAX 




C752 

9A 



TXS 




C753 

68 



PLA 




C754 

68 



PLA 




0755 

A9 

09 


LDA 

#*09 



C757 

20 

FB 

03 

JSR 

*C3Fß 


prüft auf genügend Platz im Stack 

C75A 

20 

06 

09 

JSR 

*0906 


sucht nächstes BASIC-Statement 

C75D 

18 



CLO 




C75E 

98 



TYA 




C75F 

65 

7A 


ADO 

*7A 


Programmzeiger auf nächsten Befehl 

C761 

48 



PHA 



auf Stack speichern 

0762 

A5 

7B 


LDA 

*7B 


0764 

69 

00 


ADO 

#*00 



0766 

48 



PHA 




0767 

A5 

3A 


LDA 

*3A 



0769 

48 



PHA 



laufende Zeilennummer auf Stack 

C76A 

A5 

39 


LDA 

*39 



0760 

48 



PHA 




C76D 

A9 

A4 


LDA 

#*A4 


'TO' Kode 

C76F 

20 

FF 

CE 

JSR 

*CEFF 


prüft auf Kode 

0772 

20 

8D 

CD 

JSR 

*CD8D 


prüft auf numerische Variable 

0775 

20 

8A 

CD 

JSR 

*CD8A 


FRMNUM holt numerischen Ausdruck 

0778 

A5 

66 


LDA 

*66 



C77A 

09 

7F 


GRA 

#*7F 



0770 

25 

62 


AND 

*62 



C77E 

85 

62 


STA 

*62 



0780 

A9 

BB 


LDA 

#*BB 


Rücksprungadresse merken 

0782 

A0 

07 


LDY 

#*07 



0784 

85 

22 


STA 

*22 



0786 

84 

23 


STY 

*23 



0788 

40 

43 

CE 

JMP 

*CE43 


legt Schleifenendwert auf Stack 

C78B 

A9 

BO 


LDA 

#*BC 



C78D 

A0 

D9 


LDY 

#*D9 


Zeiger auf Konstante 1 

C78F 

20 

A2 

DB 

JSR 

*DBA2 


als Default-STEP-Wert in FAC 

0792 

20 

79 

00 

JSR 

*0079 


CHRGOT laufendes Zeichen holen 

0795 

09 

A9 


CMP 

#*A9 


'STEP' -Kode 

0797 

D0 

06 


BNE 

*C79F 



0799 

20 

73 

00 

JSR 

*0073 


CHRGET nächstes Zeichen holen 

C79C 

20 

8A 

CD 

JSR 

*CD8A 


FRMNUM 

C79F 

20 

2B 

DO 

JSR 

*DC2B 


Vorzeichen von FAC holen 

C7A2 

20 

38 

CE 

JSR 

*CE38 


legt Vorzeichen und STEP-Wert auf Stack 

C7A5 

A5 

4A 


LDA 

*4A 



49 



Variablenname und 


FQR-Kode auf Stack 


Interpreter-Schleife 
prüft auf STOF'-Taste 

Programmzeiger 
Direct-Modus ? 

ja 

als Zeiger für CONT merken 

laufendens Zeichen 
nicht Zeilenende ? 


Flag für END setzen 

Programmende ? 

ja, dann END ausführen 


C7A7 

48 



PHA 


C7A8 

A5 

49 


LDA 

149 

C7AA 

48 



PHA 


C7AB 

A9 

81 


LDA 

#$81 

C7AD 

48 



PHA 


***************************** 

C7AE 

20 

2C 

C8 

JSR 

$C82C 

C7B1 

A 5 

7A 


LDA 

$7A 

C7B3 

A4 

7B 


LDY 

$7B 

C7B5 

C0 

02 


CPY 

#$02 

C7B7 

EA 



NOP 


C7B8 

F0 

04 


BEÜ 

$C7BE 

C7BA 

85 

3D 


STA 

$3D 

C7BC 

84 

3E 


STY 

$3E 

C7BE 

A0 

00 


LDY 

#$00 

C7C0 

Bl 

7A 


LDA 

($7A),Y 

C7C2 

D0 

43 


BNE 

$0807 

C7C4 

A0 

02 


LDY 

#$02 

C7C6 

Bl 

7A 


LDA 

($7A) , Y 

C7C8 

18 



CLO 


C7C9 

D0 

03 


BNE 

$C7CE 

C7CB 

4C 

4B 

08 

JMP 

IC84B 

C7CE 

C8 



INY 


C7CF 

Bl 

7A 


LDA 

($7A) ,Y 

C7D1 

85 

39 


STA 

$39 

C7D3 

08 



INY 


C7D4 

Bl 

7A 


LDA 

($7A),Y 

C7D6 

85 

3A 


STA 

$3A 

C7D8 

98 



TYA 


C7D9 

65 

7A 


ADO 

$7A 

C7DB 

85 

7A 


STA 

$7A 

C7DD 

90 

02 


BCC 

$C7E 1 

C7DF 

E6 

7B 


INC 

$7B 

C7E i 

60 

08 

03 

JMP 

($0308) 

C7E4 

20 

73 

00 

JSR 

$0073 

C7E7 

20 

ED 

C7 

JSR 

$C7ED 

C7EA 

4C 

AE 

C7 

JMP 

IC7AE 

***************************** 

C7ED 

F0 

3C 


BEQ 

$CB2B 

C7EF 

E9 

80 


SBC 

#$80 

C7F1 

90 

11 


BCC 

$C804 

C7F3 

C9 

23 


CMP 

#$23 

C7F5 

B0 

17 


BCS 

$C80E 

C7F7 

0A 



ASL 


C7F8 

A8 



TAY 


C7F9 

B9 

0D 

00 

LDA 

$C00D,Y 

C7FC 

48 



PHA 


C7FD 

B9 

0C 

00 

LDA 

$0000,Y 

0800 

48 



PHA 


C801 

4C 

73 

00 

JMP 

$0073 

C804 

4C 

A5 

09 

JMP 

$C9A5 

***************************** 

C807 

C9 

3A 


CMP 

#$3A 

C809 

F0 

D6 


BEQ 

$C7E 1 

C80B 

4C 

08 

CF 

JMP 

$CF08 


laufende Zeilennummer merken 

Programmzeiger auf nächste Zeile 

JMP $C7E4 

CHRGET nächstes Zeichen holen 

Statement ausführen 

zurück zur Interpretersch1 eife 

BAS IC-Btatement dekodieren 
Zeilenende, dann fertig 

I nterpret er kode 

Funktionskode oder GO TO 

Befehlsadresse aus Tabelle holen 

nächstes Zeichen holen und Befehl 

zum LET-Befehl 

prüft auf Folgestatement 

gibt 'SYNTAX ERROR' 


ausführen 



*##*#****#*********** ******** 


C80E 

C9 

4B 


CUP 

#$4B 

C 81 ß 

D0 

F9 


BNE 

$C80B 

C 812 

20 

73 

00 

JSR 

$0073 

Cß 15 

A9 

A4 


LDA 

#$A4 

C 81 7 

20 

FF 

CE 

JSR 

$CEFF 

C81A 

4C 

A8 

C8 

J MP 

$C8A0 

***************************** 

C81D 

38 



SEC 


C81E 

A5 

2B 


LDA 

$2B 

C820 

E9 

01 


SBC 

#$01 

C822 

A4 

2C 


LDY 

$2C 

C824 

B0 

01 


BCS 

$C827 

C826 

88 



DEY 


C827 

85 

41 


STA 

$41 

C829 

S4 

42 


STY 

$42 

C82B 

60 



RTS 


***************************** 

C32C 

20 

El 

FF 

JSR 

$FFE1 

***************************** 

C82F 

B0 

01 


BCS 

$C832 

***************************** 

C 8 31 

18 



CLC 


C832 

Dß 

3C 


BNE 

$C870 

C834 

A5 

7A 


LDA 

$7A 

0836 

A4 

7B 


LDY 

$7B 

C838 

A6 

3A 


LDX 

$3A 

C83A 

E8 



I NX 


C83B 

F0 

0C 


BEÜ 

$0849 

C83D 

85 

3D 


STA 

$3D 

C83F 

84 

3E 


STY 

$3E 

C841 

A5 

39 


LDA 

$39 

C843 

A4 

3A 


LDY 

$3A 

C845 

85 

3B 


STA 

$3B 

C847 

84 

3C 


STY 

$3C 

C849 

68 



PLA 


CB4A 

68 



PLA 


C84B 

A9 

81 


LDA 

#$81 

C84D 

A0 

C3 


LDY 

#$C3 

C84F 

90 

03 


BCC 

$C854 

C85 1 

4C 

69 

C4 

JMP 

$C469 

C854 

4C 

74 

C4 

J MP 

$C474 

***************************** 

C857 

D0 

17 


BNE 

$C870 

C859 

A2 

1A 


LDX 

#$ 1A 

C85B 

A4 

3E 


LDY 

$3E 

C85D 

D0 

03 


BNE 

$C862 

C85F 

4C 

37 

C4 

JMP 

$C437 

C862 

A5 

3D 


LDA 

$3D 

C864 

85 

7fi 


STA 

$7A 

C866 

84 

7B 


STY 

$7B 

C868 

A5 

3B 


LDA 

$3B 

C86A 

A4 

3C 


LDY 

$3C 

C86C 

85 

39 


STA 

$39 

C86E 

84 

3A 


STY 

$3A 


prüft auf 'GO' 'TO' Kode 
'GO' - Kode (minus 80) 

CHRGET nächstes Zeichen holen 
'TO' - Kode 
prüft auf Kode 
zum GÖTO-Befehl 

BASIC-Befehl RESTORE 


Prügrammstart - 1 


gleich DATA-Zeiger 


prüft auf STOP-Taste 
STOP-Taste abfragen 

BASIC-Befehl STOP 
C=1 Flag für STOP 

BASIC-Befehl END 
C-0 Flag für END 


Programmzeiger 


Direct-Modus ? 

Zeiger für CONT 

Nummer der laufenden Zeile 

als Zei1ennummer für CONT merken 

Rücksprungadresse vom Stack holen 

Zeiger auf 'break' 

END Flag gesetzt ? 

nein, dann 'break in Zeilennummer' 

zum BASIC-Warmstart 

BASIC-Befehl CONT 

Fehlernummer für 'can't continue' 

CONT gesperrt ? 

nein 

Fehlermeldung ausgeben 


Programmz eiger 
und 

Zeilenummer setzen 
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C870 

60 



RTS 



***************************** 

BASIC-Befehl RUN 

C871 

08 



PHP 



C872 

A9 

00 


LDA 

#$00 


C 8 7 4 

20 

90 

FF 

JSR 

$FF90 

Flag -für Programm-Modus setzen 

C877 

28 



PLP 



C878 

D0 

B3 


BNE 

$C87D 

weitere Zeichen ? 

C87A 

4C 

59 

C6 

JMP 

$C659 

Programmzeiger auf Start, CLR 

C87D 

20 

60 

C6 

JSR 

$C660 

ja, CLR-Bef eh 1 

C880 

4C 

97 

C8 

JHP 

$C897 

zum GOTO-Befehl 

***************************** 

BASIC-Befehl GOSUB 

C883 

A9 

03 


LDA 

#$03 


C885 

20 

FB 

C3 

JSR 

$C3FB 

prüft auf genügend Platz im Stack 

C888 

A5 

7B 


LDA 

$7B 


C88A 

48 



PHA 


Progr ammzeiger 

C88B 

A5 

7A 


LDA 

$7A 


C88D 

48 



PHA 



C88E 

A5 

3A 


LDA 

$3A 


C890 

48 



PHA 


Zei1ennummer 

C891 

A5 

39 


LDA 

$39 


CB93 

48 



PHA 



C894 

A9 

SD 


LDA 

#$8D 

und 'GOSUB'-Kode auf Stack 

C896 

48 



PHA 



C897 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

C89A 

20 

A0 

C8 

JSR 

$C8A0 

GOTO-Befehl 

C89D 

4C 

AE 

C7 

JMP 

$C7AE 

zur Interpreterschleife 

***************************** 

BASIC-Befehl GOTO 

CBA0 

20 

6B 

C9 

JSR 

$C96B 

Zeilennummer nach $14/$15 holen 

C8A3 

20 

09 

C9 

JSR 

$C909 

nächsten Zeilenanfang suchen 

C8A6 

38 



SEC 



C8A7 

A5 

39 


LDA 

$39 


CBA9 

E5 

14 


SBC 

$14 

ist Zeilennummer kleiner als laufende 

C8AB 

A5 

3A 


LDA 

$3A 


CBAD 

E5 

15 


SBC 

$15 


C8AF 

B0 

0B 


BCS 

$C8BC 

nein 

CBBi 

98 



TYA 



C8B2 

38 



SEC 



C8B3 

65 

7A 


ADC 

$7A 

sucht ab laufender Zeile 

C8B5 

A6 

7B 


LDX 

$7B 


C8B7 

90 

07 


BCC 

$C8C0 


C8B9 

E8 



I NX 



C8BA 

B0 

04 


BCS 

$C8C0 


C8BC 

A5 

2B 


LDA 

$2B 

sucht ab Programmstart 

C8BE 

A6 

2C 


LDX 

$2C 


C8C0 

20 

17 

C6 

JSR 

$C617 

sucht Programmzei1e 

C8C3 

90 

IE 


BCC 

$C8E3 

nicht gefunden, 'undef'd Statement' 

C8C5 

A5 

5F 


LDA 

$5F 


C8C7 

E9 

01 


SBC 

#$01 


C8C9 

85 

7A 


STA 

$7A 

Programmzeiger auf neue Zeile setzen 

C8CB 

A5 

60 


LDA 

$60 


CBCD 

E9 

00 


SBC 

#$00 


C8CF 

85 

7B 


STA 

$7B 


CBDi 

60 



RTS 



***************************** 

BASIC-Befehl RETURN 

C8D2 

D0 

FD 


BNE 

$C8D1 


C8D4 

A9 

FF 


LDA 

#$FF 
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C8D6 

85 

4 A 


STA $4A 


CSD8 

20 

8A 

C3 

JSR $C3BA 

nächsten GQSUB-Dataensatz im Stack suchen 

CBDB 

9A 



TX5 


C8DC 

C9 

8D 


CMP #$8D 

'BOSUB'-Kode 

C8DE 

F0 

0B 


BEQ $CBEB 

gefunden ? 

C8E0 

A2 

0C 


LDX #$0C 

Nummer für 'return without gosub' 

C8E2 

2C 



■BYTE $20 

C8E3 

A2 

11 


LDX #$11 

Nummer für 'undef'd Statement' 

C8E5 

4C 

37 

C4 

JMP $C437 

Fehlermeldung ausgeben 

C8E8 

4C 

08 

CF 

JMP $CF08 

'SYNTAX ERROR' ausgeben 

C8EB 

68 



PLA 


C8EC 

68 



PLA 


C8ED 

85 

39 


STA $39 


C8EF 

68 



PLA 

Zei1ennummer 

C8F0 

85 

3A 


STA $3A 


C8F2 

68 



PLA 


C8F3 

85 

7 A 


STA $7A 


C8F5 

68 



PLA 

und Programmzeiger vom Stack holen 

C8F6 

85 

7B 


STA $7B 


IHHHHUHHHHHHHHHHUHHHHHf*###*## 

BASIC-Befehl DATA 

C8F8 

20 

06 

C9 

JSR IC906 

nächstes Statement suchen 

C8FB 

98 



TYA 


C8FC 

18 



CLC 

Offset 

C8FD 

65 

7A 


ADC $7A 


C8FF 

85 

7A 


STA $7A 

zum Programmzeiger addieren 

C901 

90 

02 


BCC $C905 


0903 

E6 

7B 


INC $7B 


C905 

60 



RTS 


***************************** 

Offset des nächsten Trennzeichens finden 

C906 

A2 

3A 


LDX #$3A 


C908 

2C 



.BYTE $2C 


C909 

A2 

00 


LDX #$00 

0, Zeilenende 

C90B 

86 

07 


STX $07 


C90D 

A0 

00 


LDY #$00 

Y enhält Offset 

C90F 

84 

08 


STY $08 


C911 

A5 

08 


LDA $08 


C 91 3 

A6 

07 


LDX $07 

gesuchtes Zeichen 

C915 

B5 

07 


STA $07 


C917 

86 

08 


STX $08 


C919 

Bl 

7A 


LDA ($7A) , Y 

Zeichen holen 

C 91B 

F0 

E8 


BEQ $C905 

Zeilenende, dann fertig 

C91D 

C5 

08 


CMP $08 


C91F 

F 0 

E4 


BEQ $C905 


C921 

CB 



INY 

Zeiger erhöhen 

C922 

C9 

22 


CMP #$22 

Hochkomma 

C924 

D0 

F3 


BNE $C919 


0926 

F0 

E9 


BEQ IC911 


***************************** 

BASIC-Befehl IF 

C928 

20 

9E 

CD 

JSR $CD9E 

FRMEVL Ausdruck berechnen 

C92B 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen holen 

C92E 

C9 

89 


CMP #$89 

'GOTO' - Kode 

C930 

F0 

05 


BEQ $C937 

ja 

C932 

A9 

A7 


LDA #$A7 

'THEN' - Kode 

C934 

20 

FF 

CE 

JSR $CEFF 

prüft auf Kode 

C937 

A5 

61 


LDA $61 


C939 

D0 

05 


BNE $C940 

Ausdruck wahr ? 



***************************** BASIC-Befehl REM 


C93B 

2(3 

09 

C9 

JSR $C909 

nein, nächsten Zeilenanfang suchen 

C93E 

Fß 

BB 


BEQ $C8FB 

Programmzeiger auf nächste Zeile 

C940 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen holen 

C943 

B0 

03 


BCS IC948 

keine Ziffer ? 

C945 

4C 

A0 

C8 

JMP $C8A0 

zum GÜTO-Befehl 

C94B 

4C 

ED 

C7 

JMP $C7ED 

nächsten Befehl ausführen 

***************************** 

BASIC-Befehl ON 

C94B 

20 

9E 

D7 

JSR $D79E 

holt Byte-Wert (0-255) 

C94E 

48 



PHA 

Kode merken 

C94F 

C9 

8D 


CMP #$8D 

' GQSUB' - Kode ? 

C951 

Fß 

04 


BEQ $C957 

ja 

C953 

C9 

89 


CMP #$89 

'SOTO ' - Kode ? 

C955 

D0 

91 


BNE $C8E8 

nein, dann 'syntax error' 

C957 

C6 

65 


DEC $65 

Zähler erniedrigen 

C959 

Dß 

04 


BNE $C95F 

noch nicht null ? 

C95B 

68 



PLA 

ja, Kode zurückholen 

C95C 

4C 

EF 

C7 

JMP $C7EF 

und Befehl ausführen 

C95F 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

C962 

20 

6B 

C9 

JSR $C96B 

Zeilennummer holen 

C965 

C9 

2C 


CMP #$2C 

', ' Komma ? 

C967 

F0 

EE 


BEQ $C957 

ja, dann weiter 

C969 

68 



PLA 

kein Sprung, Kode zurück, fertig 

C96A 

60 



RTS- 


***************************** 

holt Zei1ennummer und wandelt in Adressformat 

C96B 

A2 

00 


LDX #$00 


C96D 

86 

14 


STX $14 


C96F 

86 

15 


STX $15 

Vorbesetzung für Zeilennummer gleich Null 

C97 1 

B0 

F7 


BCS $C96A 

Ergebnis ist Nummer der Zeile in $14/$15 

C973 

E9 

2F 


SBC #$2F 


C975 

85 

07 


STA $07 


C977 

A5 

15 


LDA $15 


C979 

85 

22 


STA $22 


C97B 

C9 

19 


CMP #$19 


C97D 

B0 

D4 


BCS IC953 


C97F 

A5 

14 


LDA $14 


C981 

0A 



ASL 


C982 

26 

22 


ROL $22 


C9B4 

0A 



AUL 


C985 

26 

22 


ROL $22 


C987 

65 

14 


ADC $14 


C989 

85 

14 


STA $14 


C98B 

A5 

22 


LDA $22 


C98D 

65 

15 


ADC $15 


C98F 

85 

15 


STA $15 


C99 1 

06 

14 


ASL $14 


C993 

26 

15 


ROL $15 


C995 

A5 

14 


LDA $14 


C997 

65 

07 


ADC $07 


C999 

85 

14 


STA $14 


C99B 

90 

02 


BCC $C99F 


C99D 

E6 

15 


INC $15 


C99F 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

C9A2 

4C 

71 

C9 

JMP $C97i 

zur Auswertung 

***************************** 

BASIC-Befehl LET 

C9A5 

20 

8B 

D0 

JSR $D08B 

sucht Variable 


54 



Variablenadresse merken 
'=' - Kode 
prüft auf Kode 
Integer~F1ag 

String-Flag 

FRMEVL Ausdruck holen 
Typflag zurückholen 


C9A8 

85 

49 


STA 

$49 

C9AA 

84 

4A 


STY 

$4A 

C9AC 

A9 

B2 


LDA 

#$B2 

C9AE 

20 

FF 

CE 

JSR 

$CEFF 

C9B1 

A5 

0E 


LDA 

$0E 

C9B3 

48 



PHA 


C9B4 

A5 

0D 


LDA 

$0D 

C9B6 

48 



F’HA 


C9B7 

20 

9E 

CD 

JSR 

$CD9E 

C9BA 

68 



FLA 


C9BB 

2A 



R0L 


C9BC 

20 

90 

CD 

JSR 

$CD90 

C9BF 

D0 

18 


BNE 

$C9D9 

C9C1 

68 



FLA 


C9C2 

10 

12 


BPL 

$C9D6 

***************************** 

C9C4 

20 

1B 

DC 

JSR 

$DC 1B 

C9C7 

20 

BF 

Dl 

JSR 

$D1BF 

C9CA 

A0 

00 


LDY 

#$00 

C9CC 

A 5 

64 


LDA 

$64 

C9CE 

91 

49 


STA 

($49),Y 

C9D0 

C8 



I NY 


C9D1 

A5 

65 


LDA 

$65 

C9D3 

91 

49 


STA 

($49) , Y 

C9D5 

60 



RTS 


***************************** 

C9D6 

4C 

00 

DB 

J MP 

IDBD0 

***************************** 

C9D9 

68 



FLA 


C9DA 

A4 

4A 


LDY 

$4A 

C9DC 

C0 

DF 


CPY 

#$DF 

C9DE 

00 

4C 


BNE 

$CA2C 

C9E0 

20 

A6 

06 

JSR 

$D6A6 

C9E3 

C9 

06 


CMP 

#$06 

C9E5 

00 

3D 


BNE 

$CA24 

C9E7 

A0 

00 


LDY 

#$00 

C9E9 

84 

61 


STY 

$61 

C9EB 

84 

66 


STY 

$66 

C9ED 

84 

71 


STY 

$71 

C9EF 

20 

10 

CA 

JSR 

$CA 1D 

C9F2 

20 

E2 

DA 

JSR 

$DAE2 

C9F5 

E6 

71 


INC 

$71 

C9F7 

A4 

71 


LDY 

$71 

C9F9 

20 

10 

CA 

JSR 

$CA1D 

C9FC 

20 

0C 

DC 

JSR 

$DC0C 

C9FF 

AA 



TAX 


CA00 

F0 

05 


BEQ 

$CA07 

CA02 

E8 



I NX 


CA03 

8A 



TXA 


CA04 

20 

ED 

DA 

JSR 

$DAED 

CA07 

A4 

71 


LDY 

$71 

CA09 

C8 



I NY 


CA0A 

C0 

06 


CPY 

#$06 

CA0C 

00 

DF 


BNE 

$C9ED 

CA0E 

20 

E2 

DA 

JSR 

$DAE2 

CA 11 

20 

9B 

DC 

JSR 

$DC9B 

CA14 

A6 

64 


LDX 

$64 


und auf gleichen Typ prüfen 


Wertzuweisung an Integer-Variable 
FAC runden 

und nach Integer wandeln 


Wert in Variable übertragen 


Wertzuweisung an Real-Variab 1e 
FAC nach Variable bringen 

Wertzuweisung an String-Variab 1e 

Varibalenadresse high 
ist Varibale TI$ ? 
nein 
FRESTR 

Stringlänge gleich 6 

nein, dann 'illegal quantity' 


prüft nächstes Zeichen auf Ziffer 
FAC = FAC * 10 
Stellenzähler erhöhen 

prüft nächstes Zeichen auf Ziffer 
FAC nach ARG kopieren 


FAC gleich null ? 


FAC = FAC + ARG 
Stel1enz äh 1er 
erhöhen 

schon 6 Stellen ? 
nein 

FAC = FAC * 10 

FAC rechtsbündig machen 


Real ? 
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CA16 

A4 

63 

LDY 

$63 

eingegebene Uhrzeit 

CA18 

A5 

65 

LDA 

$65 


CA1A 

4C 

DB FF 

J IIP 

$FFDB 

TIME setzen 

***************************** 

Zeichen auf Ziffer prüfen 

CA1D 

Bi 

22 

LDA 

($22) ,Y 

Zeichen holen 

CA1F 

20 

80 00 

JSR 

$0080 

auf Ziffer prüfen 

CA22 

90 

03 

BCC 

$CA27 

ja 

CA24 

4C 

48 D2 

J MP 

$D248 

gibt 'illegal quantity' 

CA27 

E9 

2F 

SBC 

#$2F 

von ASCII nach He>: umwandeln 

CA29 

4C 

7E DD 

JMP 

$DD7E 

in FAC und ARG übertragen 

***************************** 

Wertzuweisung an normalen String 

CA2C 

Aß 

02 

LDY 

#10 2 


CA2E 

Bl 

64 

LDA 

($64),Y 

Stringadresse high 

CA30 

C5 

34 

CMP 

$34 

mit Stringanfangsadresse vergleichen 

CA32 

90 

.17 

BCC 

$CA4B 

kleiner, String steht innerhalb Programm 

CA34 

D0 

07 

BNE 

$CA3D 


CA36 

88 


DEY 



CA37 

Bl 

64 

LDA 

($64),Y 

Stringadresse low 

CA39 

C5 

33 

CMP 

$33 

vergleichen 

CA3B 

90 

0E 

BCC 

$CA4B 


CA3D 

A4 

65 

LDY 

$65 


CA3F 

C4 

2E 

CPY 

$2E 


CA41 

90 

0Q 

BCC 

$CA4B 


CA43 

D0 

0D 

BNE 

$CA52 


CA45 

A5 

64 

LDA 

$64 


CA47 

C5 

2D 

CMP 

$2D 


CA49 

B0 

07 

BCS 

$CA52 


CA4B 

A5 

64 

LDA 

$64 


CA4D 

A4 

65 

LDY 

$65 


CA4F 

4C 

68 CA 

JMP 

$CA68 


CA52 

A0 

00 

LDY 

#$00 


CA54 

Bl 

64 

LDA 

($64) , Y 

Länge des Strings 

CA56 

20 

75 D4 

JSR 

$D475 

prüft Speicherplatz, setzt Stringzeiger 

CA59 

A5 

50 

LDA 

$50 


CA5B 

A4 

51 

LDY 

$51 


CA5D 

85 

6F 

STA 

$6F 


CA5F 

84 

70 

STY 

$70 


CA61 

20 

7A D6 

JSR 

$D67A 

String in Stringbereich übertragen 

CA64 

A9 

61 

LDA 

#$61 


CA66 

Aß 

00 

LDY 

#$00 


CA68 

85 

50 

STA 

$50 


CA6A 

84 

51 

STY 

$51 


CA6C 

20 

DB D6 

JSR 

$D6DB 

Descriptor aus Stringstack löschen 

CA6F 

A0 

00 

LDY 

#$00 


CA71 

Bl 

50 

LDA 

($50),Y 

Länge 

CA73 

91 

49 

STA 

($49),Y 


CA75 

Cß 


I NY 



CA76 

Bl 

50 

LDA 

($50) ,Y 

Adresse low 

CA78 

91 

49 

STA 

($49) , Y 


CA7A 

C8 


I NY 



CA7B 

Bl 

50 

LDA 

($50),Y 

und Adresse high 

CA7D 

91 

49 

STA 

($49) f Y 

in Variable bringen 

CA7F 

6ß 


RTS 



***************************** 

BASIC-Befehl PRINT# 

CA80 

20 

86 CA 

JSR 

$C A86 

CMD-Bef eh 1 

CA83 

4C 

B5 CB 

JMP 

$CBB5 

und CLRCH 
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***************************** CMD-Befeh 1 


CA86 

20 

9E 

D7 

JSR $D79E 

holt Byte-Wert 

CAB9 

F0 

05 


BEQ $CA90 

kein weiterer Kode ? 

CA8B 

A9 

2C 


LDA #$2C 


CA8D 

20 

FF 

CE 

JSR $CEFF 

prüft auf Kode 

CA90 

08 



PHP 

CA9 1 

86 

13 


STX $13 

Nummer des Ausgabegeräts setzen 

CA93 

20 

15 

El 

JSR «El 15 

CHKOUT setzt Ausgabegerät 

CA96 

28 



PLP 

CA97 

4C 

A0 

CA 

JMP $CAA0 

zum PR INT-Bef eh 1 

CA9A 

20 

21 

CB 

JSR $CB21 

String drucken 

CA9D 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen holen 

***************************** 

BASIC-Bef ehl PRINT 

CAA0 

F0 

35 


BED $CAD7 


CAA2 

F0 

43 


BEQ $CA£7 


CAA4 

C9 

A3 


CUP #$A3 

' TAB <' - Kode 

CAA6 

F0 

50 


BEQ $CAF8 


CAA8 

C9 

A6 


CMP #$A6 

*SPC(' - Kode 

CAAA 

18 



CLC 


CAAB 

F0 

4B 


BEQ $CAF8 


CAAD 

C9 

2C 


CMP #$2C 

f 

CAAF 

F0 

37 


BEQ $CAE8 


CAB 1 

C9 

3B 


CMP #$3B 

'; ' 

CAB3 

F0 

5E 


BEQ $CB13 


CAB5 

20 

9E 

CD 

JSR $CD9E 

FRMEVL Ausdruck holen 

CAB8 

24 

0D 


BIT $0D 

Typflag 

CABA 

30 

DE 


BMI $CA9A 

String ? 

CABC 

20 

DD 

DD 

JSR $DDDD 

FAC in ASCII-String umwandeln 

CABF 

20 

87 

D4 

JSR $D487 

String-Parameter holen 

CAC2 

20 

21 

CB 

JSR $CB21 

String drucken 

CAC5 

20 

3B 

CB 

JSR $CB3B 

Cursor RIGHT bzw. Leerzeichen ausgeben 

CACB 

D0 

D3 


BNE $CA9D 

weiter machen 

CACA 

A9 

00 


LDA #$00 


CACC 

9D 

00 

02 

STA $0200,X 

Eingabepuffer mit 0 abschließen 

CACF 

A2 

FF 


LDX #$FF 

CAD 1 

A0 

01 


LDY #$01 

Zeiger X/Y auf Eingabepuffer setzen 

CAD3 

A5 

13 


LDA $13 

Ausgabe in File ? 

CAD5 

D0 

10 


BNE $CAE7 


CAD7 

A9 

0D 


LDA #$0D 

'CR ' 

CAD9 

20 

47 

CB 

JSR ICB47 

ausgeben 

CADC 

24 

13 


BIT $13 

logische Filenummer 

CADE 

10 

05 


BPL ICAE5 

k1 einer 128 ? 

CAE0 

A9 

0A 


LDA #$0A 

'LF' Zeilenvorschub 

CAE2 

20 

47 

CB 

JSR $CB47 

ausgeben 

CAE5 

49 

FF 


EQR #$FF 

CAE7 

60 



RTS 


CAE8 

3B 



SEC 

Zehner-Tabulator mit Komma 

CAE9 

20 

F0 

FF 

JSR $FFF0 

Cursorposition holen 

CAEC 

98 



TYA 

CAED 

3B 



SEC 


CAEE 

E9 

0B 


SBC #$0B 

10 abziehen 

CAF0 

B0 

FC 


BCS $CAEE 

nicht negativ ? 

CAF2 

49 

FF 


EOR #$FF 

invertieren 

CAF4 

69 

01 


ADC #$01 


CAF6 

D0 

16 


BNE $CB0E 
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***************************** TAB ( (C=l) und SPC< <C=0> 


CAFB 

08 


PHP 

Kode merken 

CAF9 

38 


SEC 


CAFA 

20 

F0 FF 

JSR $FFF0 

Cursorposition holen 

CAFD 

84 

09 

STY $09 


CAFF 

20 

9B D7 

JSR $D79B 

Byte-Wert holen 

CB02 

C9 

29 

CMP #$29 

')' Klammer zu ? 

CB04 

D0 

59 

BNE ICB5F 

nein, 'syntax error' 

CB06 

28 


PLP 


CB07 

90 

06 

BCC $CB0F 

zu 5PC ( 

CB09 

8A 


TXA 

TAB-Wert in Akku 

CB0A 

E5 

09 

SBC $09 

mit Cursorposition vergleichen 

CB0C 

90 

05 

BCC $CB13 

Wert kleiner, dann -fertig 

CB0E 

AA 


TAX 


CB0F 

E8 


1 NX 


CB 10 

CA 


DEX 


CB 11 

D0 

06 

BNE $CB19 


CB 13 

20 

73 00 

JSR $0073 

CHR6ET nächstes Zeichen holen 

CB 16 

4C 

A2 CA 

JMP $CAA2 

und weiter machen 

CB19 

20 

3B CB 

JSR $CB3B 

Cursor RIGHT bzw. Leerzeichen ausgeben 

CB IC 

D0 

F2 

BNE $CB10 

zum Schl eitenantang 

****************************** 

String ausgeben 

CB 1E 

20 

87 D4 

JSR $D487 

String-Parameter holen 

CB2 1 

20 

A6 D6 

JSR $D6A6 

FRESTR 

CB24 

AA 


TAX 

String länge 

CB25 

A0 

00 

LDY #$00 


CB27 

E8 


I NX 


CB28 

CA 


DEX 


CB29 

F0 

BC 

BEQ $CAE7 

String zu Ende 

CB2B 

Bl 

22 

LDA ($22),Y 

Zeichen des Strings 

CB2D 

20 

47 CB 

JSR $CB47 

ausgeben 

CB 30 

C8 


I NY 


CB31 

C9 

0D 

CMP #$0D 

'CR' carriage return 

CB33 

D0 

F3 

BNE $CB28 

nein, dann weiter 

CB35 

20 

E5 CA 

JSR $CAE5 

Fehler ! Test aut LF JSR ICADC 

CB38 

4C 

28 CB 

JMP $CB28 

und weiter machen 

***************************** 

Ausgabe eines Leerzeichens bzw. Cursor 

CB3B 

A5 

13 

LDA $13 

logische Filenummer 

CB3D 

F0 

03 

BEQ $CB42 

keine Ausgabe in File 

CB3F 

A9 

20 

LDA #$20 

dann Leerzeichen 

CB41 

2C 


.BYTE $2C 


CB42 

A9 

ID 

LDA #$1D 

Cursor right 

CB44 

2C 


.BYTE $2C 


CB45 

A9 

3F 

LDA #$3F 

'?' Fragezeichen 

CB47 

20 

09 El 

JSR $E 109 

ausgeben 

CB4A 

29 

FF 

AND #$FF 

Flags setzen 

CB4C 

60 


RTS 


***************************** 

Fehlerbehandlung bei Eingabe 

CB4D 

A5 

11 

LDA $11 

Flag i iir INPUT / GET / READ 

CB4F 

F0 

11 

BEQ $CB62 

INPUT 

CB51 

30 

04 

BMI $CB57 

READ 

CB53 

A0 

FF 

LDY #$FF 


CB55 

D0 

04 

BNE $CB5B 

GET 

***************************** 

Fehler bei READ 

CB57 

A5 

3F 

LDA $3F 


CB59 

A4 

40 

LDY $40 

DATA-Zei1ennummer 
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**#**##***#*#######******#**# Fehler bei GET 


CB5B 

85 

39 


STA 

139 


CB5D 

84 

3 A 


STY 

$3A 

gleich Zei 1ennummer des Fehlers 

CB5F 

4C 

08 

CF 

JMP 

$CF08 

gibt 'syntax error ' 

***************************** 

Fehler bei INPUT 

CB62 

A 5 

13 


LDA 

$13 

Nummer des Eingabegeräts 

CB64 

F0 

05 


BEQ 

$CB6B 

Eingabe vom Tastatur ? 

CB66 

A2 

18 


LDX 

#$18 

Nummer Tür 'File data' 

CB68 

4C 

37 

C4 

JMP 

$C437 

Fehlermeldung ausgeben 

C86B 

A9 

0C 


LDA 

#$0C 


CB6D 

A0 

CD 


LDY 

#$CD 

Zeiger auf '?redo from start' 

CB6F 

20 

IE 

CB 

J5R 

$CB 1E 

String ausgeben 

CB72 

A5 

3D 


LDA 

$3D 


CB74 

A4 

3E 


LDY 

$3E 

Programzeiger 

CB76 

85 

7A 


STA 

$7A 

zurück auf INPUT-Befehl 

CB78 

84 

7B 


STY 

$7B 


CB7A 

60 



RTS 



■IHHHHHHHHUHHHHHHHHHHHHUHHHHHHt 

BASIC-Befehl GET 

CB7B 

20 

A6 

D3 

JSR 

$D3A6 

Direktmodus ? 

CB7E 

C9 

23 


CMP 

#$23 

'#' 

CB80 

D0 

10 


BNE 

$CB92 

nein ? 

CB82 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

CB85 

20 

9E 

D7 

JSR 

$D79E 

Byte-Wert holen 

CBB8 

A9 

2C 


LDA 

#$2C 

i 

CB8A 

20 

FF 

CE 

JSR 

$CEFF 

prüft auf Kode 

CB8D 

86 

13 


STX 

$13 

setzt Nummer des Eingabegeräts 

CB8F 

20 

1B 

El 

JSR 

$E11B 

CHKIN setzt Eingabegerät 

CB92 

A2 

01 


LDX 

#101 


CB94 

A0 

02 


LDY 

#$02 

Zeiger X/Y auf $201, ein Zeichen 

CB96 

A9 

00 


LDA 

#$00 

Puffer mit 0 abschließen 

CB9S 

8D 

01 

02 

STA 

$0201 


CB9B 

A9 

40 


LDA 

#$40 

GET-Flag 

CB9D 

20 

0F 

CC 

JSR 

$CC0F 

Eingabe und Wertzuweisung 

CBA0 

A6 

13 


LDX 

$13 

Eingabe von File ? 

CBA2 

D0 

13 


BNE 

$CBB7 

ja 

CBA4 

60 



RTS 


nein, dann fertig 

fr*#****#*##*#****##*#**#**##* 

BASIC-Befehl INPUT# 

CBA5 

20 

9E 

D7 

JSR 

$D79E 

holt Byte-Wert 

5 

CBA8 

A9 

2C 


LDA 

#$2C 

CBAA 

20 

FF 

CE 

JSR 

$CEFF 

prüft auf Kode 

CBAD 

86 

13 


STX 

$13 

logische Filenummer des Eingabegeräts 

CBAF 

20 

1B 

El 

JSR 

«El 1B 

CHKIN setzt Eingabegerät 

CBB2 

20 

CE 

CB 

JSR 

$CBCE 

INPUT ohne Dialogstring 

CBB5 

A5 

13 


LDA 

$13 

CBB7 

20 

CC 

FF 

JSR 

$FFCC 

CLRCH I/O-Kanäle rücksetzen 

CBBA 

A2 

00 


LDX 

#$00 


CBBC 

86 

13 


STX 

$13 

Eingabegerät wieder Tastatur 

CBBE 

60 



RTS 



***************************** 

BASIC-Befehl INPUT 

CBBF 

C9 

22 


CMP 

#$22 

'" ' Hochkomma 

CBCi 

D0 

0B 


BNE 

$CBCE 

nein 

CBC3 

20 

BD 

CE 

JSR 

$CEBD 

Dialogstring holen 

CBC6 

A9 

3B 


LDA 

#$3B 

5 

CBC8 

20 

FF 

CE 

JSR 

$CEFF 

prüft auf Kode 

CBCB 

20 

21 

CB 

JSR 

ICB21 

String ausgeben 

CBCE 

20 

A6 

D3 

JSR 

$B3A6 

Direktmodus ? 
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CBD1 

A9 

2C 


LDA 

#$2C 

', ' Komma 

CBD3 

8D 

FF 

01 

STA 

$01 FF 

an Pufferstart schreiben 

CBD6 

20 

F9 

CB 

JSR 

$CBF9 

Fragezeichen ausgeben 

CBD9 

AS 

13 


LDA 

$13 

Eingabe über logisches File 

CBDB 

F0 

0D 


BEQ 

$CBEA 

nein 

CBDD 

20 

B7 

FF 

JSR 

$FFB7 

Status holen 

CBE0 

29 

02 


AND 

#$02 

Time out 

CBE2 

F 0 

06 


BEQ 

$CBEA 

nein 

CBE4 

20 

B5 

CB 

JSR 

$CBB5 

ja, CLRCH, Tastatur wieder aktivieren 

CBE7 

4C 

F8 

C8 

JMP 

$C8F8 

nächstes Statement ausführen 

CBEfi 

AD 

00 

02 

LDA 

$0200 

erstes Zeichen aus Puffer holen 

CBED 

D0 

IE 


BNE 

$CC0D 

nicht Ende ? 

CBEF 

AS 

13 


LDA 

$13 

Eingabe 

DBF 1 

D0 

E3 


BNE 

ICBD6 

von logischem File ? 

CBF3 

20 

06 

C9 

JSR 

$C906 

nächstes Statement suchen 

CBF6 

4C 

FB 

C8 

JMP 

SC8FB 

Programmzeiger auf nächstes Statement 

CBF9 

AS 

13 


LDA 

$13 

Eingabegerät 

CBFB 

D0 

06 


BNE 

$CC03 

von logischem File 

CBFD 

20 

45 

CB 

JSR 

$CB45 

? ausgeben 

CC00 

20 

3B 

CB 

JSR 

$CB3B 

Cursor RIGHT ausgeben 

CC03 

4C 

60 

CS 

JMP 

$C56ß 

Eingabezeile holen 

****************************** 

BASIC-Befehl READ 

CC06 

A6 

41 


LDX 

$41 


CC08 

A4 

42 


LDY 

$42 

DATA-Zeiger holen 

CC0A 

A9 

98 


LDA 

#$98 

READ-Flag 

CC0C 

2C 



.BYTE $2C 


CCßD 

A9 

00 


LDA 

#$00 

INPUT-Flag 

CC0F 

85 

11 


STA 

$11 

merken 

CC11 

86 

43 


STX 

$43 


CC13 

84 

44 


STY 

$44 

INPUT-Zeiger setzen 

CC15 

20 

8B 

D0 

JSR 

$D00B 

Variable suchen 

CC1B 

85 

49 


STA 

$49 


CC 1A 

84 

4A 


STY 

$4 A 

Variablenadresse speichern 

CC1C 

AS 

7A 


LDA 

$7A 


CC 1E 

A4 

7B 


LDY 

$7B 

Programmzeiger 

CC20 

85 

4B 


STA 

$4B 


CC22 

84 

4C 


STY 

$4C 

z wischenspeichern 

CC24 

A6 

43 


LDX 

$43 


CC26 

A4 

44 


LDY 

$44 

INPUT-Zeiger 

CC28 

86 

7A 


STX 

$7A 

gleich Pragrammzeiger 

CC2A 

84 

7B 


STY 

$7B 


CC2C 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

CC2F 

D0 

20 


BNE 

$CCS 1 


CC31 

24 

11 


BIT 

$11 

Eingabeflag 

CC33 

50 

0C 


BVC 

$CC41 

nicht GET ? 

CC35 

20 

21 

El 

JSR 

$E 121 

ein Zeichen holen 

CC38 

8D 

00 

02 

STA 

$0200 

und in Puffer schreiben 

CC3B 

A2 

FF 


LDX 

#$FF 


CC3D 

A0 

01 


LDY 

#$01 


CC3F 

D0 

0C 


BNE 

$CC4D 


CC41 

30 

75 


BMI 

ICCB8 


CC43 

AS 

13 


LDA 

$13 

Ei ngabegerät 

CC45 

D0 

03 


BNE 

$CC4A 

nicht von Tastatur ? 

CC47 

20 

45 

CB 

JSR 

$CB45 

'?' ausgeben 

CC4A 

20 

F9 

CB 

JSR 

ICBF9 

zweites Fragezeichen ausgeben 

CC4D 

86 

7 A 


STX 

$7A 


CC4F 

84 

7B 


STY 

$7B 

Programmzeiger setzen 

CCS 1 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 



Typ f1ag 


CC54 24 0D BIT *0D 

CC56 10 31 BPL *CCB9 

CC58 24 11 BIT *11 Eingabeflag 

CC5A 50 09 BVC *CC65 

CC5C E8 I NX 

CC5D 86 7A STX *7A 

CC5F A9 00 LDA #*00 

CC61 85 07 STA *07 

CC63 F0 0C BEQ *CC71 

CC65 85 07 STA *07 

CC67 C9 22 CMP #*22 Hochkomma 

CC69 F0 07 BEQ *CC72 

CC6B A9 3A LDA #*3A 's' Doppelpunkt 

CC6D 85 07 STA *07 

CC6F A9 2C LDA #*2C ',' Komma 

CC71 18 CLC 

CC72 85 08 STA *08 

CC74 A5 7A LDA *7A 

CC76 A4 7B LDY *7B 

CC78 69 00 ADC #*00 

CC7A 90 01 BCC *CC7D 

CC7C C8 INY 

CC7D 20 8D D4 JSR *D48D String übernehmen 

CC80 20 E2 D7 JSR *D7E2 Programmzeiger hinter String setzen 

CC83 20 DA C9 JSR *C9DA String an Variable zuweisen 

CC86 4C 91 CC JMP *CC91 weiter machen 

CC89 20 F3 DC JSR *DCF3 Ziffernstring in FAC holen 

CC8C A5 0E LDA *0E INTEGER-Flag 

CC8E 20 C2 C9 JSR *C9C2 FAC an numerische Variable zuweisen 

CC91 20 79 00 JSR *0079 CHRSÜT laufendes Zeichen holen 

CC94 F0 07 BEQ *CC9D Ende ? 

CC96 C9 2C CMP #*2C ',' 

CC98 F0 03 BEQ *CC9D 

CC9A 4C 4D CB JMP *CB4D zur Fehlerbehandlung 

CC9D A5 7A LDA *7A 

CC9F A4 7B LDY *7B Programmzeiger 

CCA1 85 43 STA *43 

CCA3 84 44 STY *44 gleich DATA-Zeiger 

CUA5 A5 4B LDA *4B 

CCA7 A4 4C LDY *4C Programmzeiger 

CCA9 85 7A STA *7A wieder zurückholen 

CCAB 84 7B STY *7B 

CCAD 20 79 00 JSR *0079 CHRGOT laufendes Zeichen holen 

CCB0 F0 2D BEQ *CCDF 

CCB2 20 FD CE JSR *CEFD CHKCQM prüft auf Kamma 

CCB5 4C 15 CC JMP *CC15 weiter machen 

CCB8 20 06 C9 JSR *C906 nächstes Statement suchen 

CCBB C8 INY 

CCBC AA TAX 

CCBD D0 12 BNE *CCD1 

CCBF A2 0D LDX #*0D Nummer für 'out of data' 

CCC1 C8 INY 

CCC2 Bl 7A LDA (*7A),Y Programmende ? 

CCC4 F0 6C BEQ *CD32 ja, dann Fehlermeldung ausgeben 

CCC6 CB INY 

CCC7 Bl 7A LDA (*7A) ,Y 

CCC9 85 3F STA *3F 
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CCCB 

C8 




INY 

Programmzeiger 


CCCC 

Bl 

7A 



LDA ($7A),Y 



CCCE 

C8 




INY 

nach DATA-Zeiger 


CCCF 

85 

40 



STA $40 



CCD t 

20 

FB 

C8 


JSR IC8FB 

Programmzeiger auf 

nächtes Statement 

CCD4 

20 

79 

00 


JSR $0079 

CHRGOT laufendes Zeichen holen 

CCD7 

AA 




TAX 



CCD8 

E0 

83 



CPX #$B3 

'DATA' - Kode 


CCDA 

D0 

DC 



BNE $CCB8 

nein, weiter suchen 


CCDC 

4C 

51 

CC 


JMP $CC51 

Daten lesen 


CCDF 

A5 

43 



LDA $43 



CCE1 

A4 

44 



LDY $44 

Input-Zeiger 


CCE3 

A6 

il 



LDX $11 

Eingabe-Flag 


CCE5 

10 

03 



BPL $CCEA 

kein DATA 


CCE7 

4C 

27 

C8 


JMP $C827 

DATA-Zeiger setzen 


CCEA 

A0 

00 



LDY #$00 



CCEC 

Bl 

43 



LDA ($43),Y 



CCEE 

F0 

0B 



BEQ $CCFB 



CCF0 

A5 

13 



LDA $13 



CCF2 

D0 

07 



BNE $CCFB 



CCF4 

A9 

FC 



LDA #$FC 



CCF6 

A0 

cc 



LDY #$CC 

Zeiger auf '?extra 

ignored' 

CCF8 

4C 

IE 

CB 


JMP $CB1E 

String ausgeben 


CCFB 

60 




RTS 



ft****###*****#*##*#**#******* 



CCFC 

3F 

45 

58 

54 

52 41 20 49 

'?extra ignored' 


CD04 

47 

4E 

4F 

52 

45 44 0D 00 



ODBC 

3F 

52 

45 

44 

4F 20 46 52 

'?redo f r om start' 


GDI 4 

4F 

4D 

20 

53 

54 41 52 54 



CD 1C 

0D 

00 







***************************** BASIC-Befehl NEXT 


CD IE 

D0 

04 


BNE $AD24 

folgt Variablenname ? 

CD20 

A0 

00 


LDY #$00 


CD22 

F0 

03 


BEQ $CD27 


CD24 

20 

8B 

D0 

JSR $DB8B 

sucht Variable 

CD27 

85 

49 


STA $49 


CD29 

84 

4 A 


STY $4A 

Variablenadresse 

CD2B 

20 

8A 

C3 

JSR $C38A 

sucht FOR-NEXT-Sch1 eife im Stack 

CD2E 

F0 

05 


BEQ $CD35 

gefunden 

CD30 

A2 

0 A 


LDX #$0A 

Nummer für 'next withaut for' 

CD32 

4C 

37 

C4 

JMP $C437 

Fehlermeldung ausgeben 

CD35 

9 A 



TXS 


CD36 

8A 



TXA 


CD37 

18 



CLC 


CD38 

69 

04 


ADC #$04 


CD3A 

48 



PHA 


CD3B 

69 

06 


ADC #$06 


CD3D 

85 

24 


STA $24 


CD3F 

68 



PLA 


CD40 

A0 

01 


LDY #$01 


CD42 

20 

A2 

DB 

JSR $DBA2 

Variable vom Stack holen 

CD45 

BA 



TSX 


CD46 

BD 

09 

01 

LDA $0109,X 


CD49 

85 

66 


STA $66 


CD4B 

A5 

49 


LDA $49 

Variablenadresse 

CD4D 

A4 

4 A 


LDY $4A 


CD4F 

20 

67 

D8 

JSR $D867 

addiert STEP-Wert zu FAC 

CD52 

20 

D0 

DB 

JSR $DBD0 

FAC nach Variable bringen 


62 



CD55 

A0 

01 


LDY 

#$01 


CD57 

20 

5D 

DC 

JSR 

$DC5D 

FAC mit Schleifenendwert vergleichen 

CD5A 

BA 



TSX 


CD5B 

38 



SEC 



CD5C 

FD 

09 

01 

SBC 

$0109,X 

.... 

CD5F 

F 0 

17 


BEQ 

$CD78 


CDM 

BD 

0F 

01 

LDA 

$010F,X 


CD64 

85 

39 


STA 

$39 


CD66 

BD 

10 

01 

LDA 

$0110,X 

Zeilennummer holen 

CD69 

85 

3A 


STA 

$3A 


CD6B 

BD 

12 

01 

LDA 

$0112,X 


CD6E 

85 

7A 


STA 

$7A 


CD70 

BD 

11 

01 

LDA 

$0111,X 

Programmzeiger holen 

CD73 

85 

7B 


STA 

$7B 

CD75 

4C 

AE 

C7 

JMP 

$C7AE 

zur Interpreterschleife 

CD78 

8A 



TXA 


CD79 

69 

11 


ADC 

#$11 


CE7B 

AA 



TAX 



CD7C 

9A 



TXS 



CD7D 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

CD80 

C9 

2C 


CMP 

#$2C 


CD82 

D0 

Fl 


BNE 

$CD75 


CD84 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

CD87 

20 

24 

CD 

JSR 

$CD24 

nächste NEXT-Variable 


###*##*****#*****####**#**### FRHNUM numerischen Ausdruck holen 
CD8A 20 9E CD JSR $CD9E FRMEVL Ausdruck holen 

#**#*###**#*###*######*###### prüft auf numerisch 

CD8D 18 CLC 

CD8E 24 .BYTE *24 

***#**##******##***##**#***## prüft auf String 


CD8F 

38 


SEC 



CD90 

24 

0D 

BIT 

$0D 

Typflag testen 

CD92 

30 

03 

BMI 

$CD97 


CD94 

B0 

03 

BCS 

$CD99 


CD96 

60 


RTS 



CD97 

B0 

FD 

BCS 

$CD96 


CD99 

A2 

16 

LDX 

#$16 

Nummer für 'type mismatch 

CD9B 

4C 

37 C4 

JMP 

$C437 

Fehlermeldung ausgeben 


♦fr******#*#******#***#**#*#*# FRMEVL auswerten eines beliebigen Ausdrucks 
CD9E A6 7A LDX $7A 

CDA0 D0 02 BNE $CDA4 

CDA2 C6 7B DEC $7B Programmzeiger um eins erniedrigen 

CDA4 C6 7A DEC $7A 

CDA6 A2 00 LDX #$00 

CDA8 24 .BYTE $24 

CDA9 48 PHA 

CDAA 8A TXA 

CDAB 48 PHA 

CDAC A9 01 LDA #$01 

CDAE 20 FB C3 JSR $C3FB prüft auf genügend Platz im Stack 

CDB1 20 83 CE JSR $CE83 nächstes Element holen 

CDB4 A9 00 LDA #$00 

CDB6 85 4D STA $4D Maske für Vergleichsoperator 

CDB8 20 79 00 JSR $0079 CHRGOT laufendes Zeichen holen 

CDBB 38 SEC 

CDBC E9 Bl SBC #$B1 

CDBE 90 17 BCC $CDD7 
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CDC0 

C9 

03 


CMP 

#$03 


CDC2 

B0 

13 


BCS 

$CDD7 


CDC4 

C9 

01 


CMP 

#$01 


CDC6 

2A 



ROL 


Maske -für kleiner, gleich, größer 

CDC7 

49 

01 


EOR 

#$01 


CDC9 

45 

4D 


EOR 

$4D 


CDCB 

C5 

4D 


CMP 

$4D 


CDCD 

90 

61 


BCC 

$ C E 3 0 


CDCF 

85 

4D 


STA 

$4D 


CDD1 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

CDD4 

4C 

BB 

CD 

JMP 

$CDBB 

zurück 

CDD7 

A6 

4D 


LDX 

$4D 


CDD9 

D0 

2C 


BNE 

$CE07 


CDD8 

B0 

7B 


BCS 

$CE58 


CDDD 

69 

07 


ADC 

#$07 


CDDF 

90 

77 


BCC 

$CE58 


CDE1 

65 

0D 


ADC 

$0D 


CDE3 

D0 

03 


BNE 

$CDE8 


CDE5 

4C 

3D 

D6 

JMP 

ID63D 

Stringverkettung 

CDE8 

69 

FF 


ADC 

#$FF 


CDEA 

85 

22 


STA 

$22 


CDEC 

0A 



ASL 



CDED 

65 

22 


ADC 

$22 

Kode mal 3 

CDEF 

A8 



TAY 



CDF0 

68 



PLA 



CDF1 

D9 

80 

C0 

CMP 

$C080,Y 

mit Hi erachief1ag vergleichen 

CDF4 

B0 

67 


BCS 

$CE5D 


CDF6 

20 

80 

CD 

JSR 

$CD8D 

prüft auf numerisch 

CDF9 

48 



PHA 



CDFA 

20 

20 

CE 

JSR 

ICE20 

Operator ad resse und Operanden auf Stack 

CDFD 

68 



PLA 



CDFE 

A4 

4B 


LDY 

$4B 


CE00 

10 

17 


BPL 

$CE 19 


CE02 

AA 



TAX 



CE03 

F0 

56 


BEQ 

$CE5B 


CE05 

00 

5F 


BNE 

$CE66 


CE07 

46 

0D 


LSR 

$0D 

Stringflag löschen 

CE09 

8A 



TXA 



CE0A 

2A 



ROL 



CE0B 

A6 

7A 


LDX 

$7A 


CE0D 

D0 

02 


BNE 

ICE 11 


CE0F 

C6 

7B 


DEC 

$7B 

Programmzeiger eins zurück 

CE 11 

C6 

7A 


DEC 

$7A 


CE13 

A0 

1B 


LDY 

#$ 1B 

Offset des Hierarchieflags 

CE 15 

85 

4D 


STA 

$4D 

Flag setzen 

CE17 

00 

D7 


BNE 

$CDF0 


CE 1 9 

09 

80 

C0 

CMP 

$C080,Y 

mit Hierarchieflag vergleichen 

CE1C 

B0 

48 


BCS 

$CE66 

größer, dann ARG vom Stack holen 

CE 1E 

90 

D9 


BCC 

$CDF9 

sonst ARG auf Stack und weitermachen 

CE20 

B9 

82 

C0 

LDA 

$C082,Y 


CE23 

48 



PHA 


Operationsadresse auf Stack 

CE24 

B9 

81 

C0 

LDA 

$C081, Y 


CE27 

48 



PHA 



CE28 

20 

33 

CE 

JSR 

ICE33 

Operanden auf Stack 

CE2B 

A5 

4D 


LDA 

$4D 


CE2D 

4C 

A9 

CD 

JMP 

$CDA9 

zum Schleifenanfang 

CE30 

4C 

08 

CF 

JMP 

$CF08 

gibt 'syntax error' 

CE33 

A5 

66 


LDA 

$66 

Vorzeieben 

CE35 

BE 

80 

C0 

LDX 

$C080, Y 

Hierarchief1aq 

CE38 

A8 



TAY 




64 



CE39 

68 


PLA 


CE3A 

85 

22 

STA $22 

Rücksprungadresse merken 

CE3C 

E6 

22 

INC $22 


CE3E 

68 


PLA 


CE3F 

85 

23 

STA $23 


CE41 

98 


TYA 


CE42 

48 


PHA 


CE43 

20 

1B DC 

JSR $DC1B 

FAC runden 

CE46 

A5 

65 

LDA $65 


CE4B 

48 


PHA 


CE49 

A5 

64 

LDA $64 


CE4B 

48 


PHA 


CE4C 

A5 

63 

LDA $63 

FAC auf Stack 

CE4E 

48 


PHA 


CE4F 

A5 

62 

LDA $62 


CE51 

48 


PHA 


CE52 

A5 

61 

LDA $61 


CE54 

48 


PHA 


CE55 

6C 

22 00 

JMP ($0022) 

Sprung auf Operation 

CE58 

A0 

FF 

LDY #$FF 

CE5A 

68 


PLA 


CE5B 

Fß 

23 

BEQ $CE80 


CE5D 

C9 

64 

CUP #$64 


CE5F 

F0 

03 

BEQ $CE64 


CE61 

20 

8D CD 

JSR $CD8D 

prüft auf numerisch 

CE64 

84 

4B 

STY $4B 


CE66 

68 


PLA 


CE67 

4A 


LSR 


CE6B 

85 

12 

STA $12 


CE6A 

68 


PLA 


CE6B 

85 

69 

STA $69 


CE6D 

68 


PLA 


CE6E 

85 

6A 

STA $6A 

ARG vom Stack holen 

CE70 

68 


PLA 


CE71 

85 

6B 

STA $6B 


CE73 

68 


PLA 


CE74 

85 

6C 

STA $6C 


CE76 

68 


PLA 


CE77 

85 

6D 

STA $6D 


CE79 

68 


PLA 


CE7A 

85 

6E 

STA $6E 


CE7C 

45 

66 

EÜR $66 


CE7E 

85 

6F 

STA $6F 


CE60 

A5 

61 

LDA $61 


CE82 

60 


RTS 


***************************** 

Nächstes Element eines Ausdruc! 

CE83 

6C 

0A 03 

JMP ($030A) 

JMP ICE86 

CE86 

A9 

00 

LDA #$00 


CE88 

85 

0D 

STA $0D 

Typflag auf numerisch 

CE8A 

20 

73 00 

JSR $0073 

CHRGET nächstes Zeichen holen 

CE8D 

B0 

03 

BCS $C£92 

Ziffer ? 

CE8F 

4C 

F3 DC 

JMP $DCF3 

Variable in FAC holen 

CE92 

20 

13 Dl 

JSR $D113 

Buchstabe ? 

CE95 

90 

03 

BCC $CE9A 

nein 

CE97 

4C 

28 CF 

JMP $CF2B 

Variable holen 

CE9A 

C9 

FF 

CMP #$FF 

BASIC-Kode für Pi ? 

CE9C 

D0 

0F 

BNE $CEAD 


CE9E 

A9 

AB 

LDA #$A8 

Zeiger auf Konstante Pi 

CEA0 

A0 

CE 

LDY #$CE 
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CEA2 

20 

A2 

DB 

JSR 

$DBA2 

Konstante in FAC holen 

CEA5 

4C 

73 

00 

JMP 

$0073 

nächstes Zeichen holen 

**************************#*#* 


CEA8 

82 

49 

0F DA 

Al 


Konstante Pi 3.14159265 

CEAD 

C9 

2E 


CMP 

#$2E 


CEAF 

F0 

DE 


BEÖ 

$CE8F 


CEBi 

C9 

AB 


CMP 

#$AB 

Interpreter-Kode 

CEB3 

F0 

58 


BEQ 

$CF0D 


CEB5 

C9 

AA 


CMP 

#$AA 

'+' Interpreter-Kode 

CEB7 

F0 

Dl 


BEQ 

ICE8A 


CEB9 

C9 

22 


CMP 

#$22 

' " ' Hochkomma 

CEBB 

D0 

0F 


BNE 

$CECC 


CEBD 

A5 

7A 


LDA 

$7A 


CEBF 

A4 

7B 


LDY 

$7B 

Proqramzeiger holen 

CEC 1 

69 

00 


ADC 

#$00 


CEC3 

90 

01 


BCC 

$CEC6 


CEC5 

CB 



INY 



CEC6 

20 

87 

D4 

JSR 

$D487 

String übertragen 

CEC9 

4C 

E2 

D7 

JMP 

$D7E2 

Programmzeiger auf Stringende + 1 

CECC 

C9 

A8 


CMP 

#$A8 

'NOT' - Kode 

CECE 

D0 

13 


BNE 

$CEE3 


CED0 

A0 

18 


LDY 

#$18 

Offset des Hierarchiekodes in Tabelle 

CED2 

D0 

3B 


BNE 

$CF0F 


***************************** 

BASIC-Operator NOT 

CED4 

20 

BF 

Dl 

JSR 

$D1BF 

FAC nach Integer wandien 

CED7 

A5 

65 


LDA 

$65 


CED9 

49 

FF 


EOR 

#$FF 

alle Bits umdrehen 

CEDB 

AB 



TAY 



CEDC 

A5 

64 


LDA 

$64 


CEDE 

49 

FF 


EOR 

#$FF 


CEE0 

4C 

91 

D3 

JMP 

$D391 

wieder nach Fließkomma wandeln 

*******#**##**#*##*#*##****#* 


CEE3 

C9 

A5 


CMP 

#$A5 

'FN' - Kode 

CEE5 

D0 

03 


BNE 

$CEEA 


CEE7 

4C 

F4 

D3 

JMP 

$D3F4 

FN ausführen 

♦fr##**************#*#*#****** 


CEEA 

C9 

B4 


CMP 

#$B4 

'S6N' - Kode 

CEEC 

90 

03 


BCC 

$CEF 1 

kleiner (keine Funktion) ? 

CEEE 

4C 

A7 

CF 

JMP 

$CFA7 

zur Funktionsberechnung 

ft«««*«****«#-»**«************* 

holt Ausdruck in Klammern 

CEF 1 

20 

FA 

CE 

JSR 

$CEFA 

prüft auf Klammer auf 

CEF4 

20 

9E 

CD 

JSR 

$CD9E 

FRMEVL holt Ausdruck 

CEF7 

A9 

29 


LDA 

#$29 

') J Klammer zu 

CEF9 

2C 



.BYTE $2C 


CEFA 

A9 

28 


LDA 

#$28 

' (' Klammer auf 

CEFC 

2C 



.BYTE $2C 


CEFD 

A9 

2C 


LDA 

#$2C 

' , ' Komma 

CEFF 

A0 

00 


LDY 

#$00 


CF01 

Dl 

7 A 


CMP 

($7A),Y 

mit laufendem Zeichen vergleichen 

CF03 

D0 

03 


BNE 

$CF08 

keine Übereinstimmung ? 

CF05 

4C 

73 

00 

JMP 

$0073 

CHR6ET nächstes Zeichen holen 

CF08 

A2 

0B 


LDX 

#$0B 

Nummer für 'syntax error' 

CF0A 

4C 

37 

C4 

JMP 

$C437 

Fehlermeldung ausgeben 


66 



CF0D 

A0 

15 


LOY #$15 

Offset Hierarchiekode Für Vorzeichenwechsel 

CF0F 

68 



FLA 


CF 1 0 

68 



FLA 


CFil 

4C 

FA 

CD 

JMP $CDFA 

zur Auswertung 

***************************** 

prüft auf Systemvariable 

CF 14 

38 



SEC 


CF 15 

A5 

64 


LDA $64 

Variablenzeiger innerhalb des 

CF 17 

E9 

00 


SBC #$00 

BASIC-Interpreters ? 

CF19 

A5 

65 


IDA $65 


CF 18 

E9 

C0 


SBC #$C0 

(Adresse $C000 bis $E387) 

CF1D 

90 

08 


BCC $CF27 


CF1F 

A9 

87 


LDA #$87 

ja, dann C-1, sonst C=0 

CF21 

E5 

64 


SBC $64 


CF23 

A9 

E3 


LDA #$E3 


CF25 

E5 

65 


SBC $65 


CF27 

60 



RTS 


***************************** 

Variable holen 

CF28 

20 

8B 

D0 

JSR ID08B 

Variable suchen 

CF2B 

85 

64 


STA $64 


CF2D 

84 

65 


STY $65 

zeigt auf Variable bzw. Stringdescriptor 

CF2F 

A6 

45 


LDX $45 


CF31 

A4 

46 


LDY $46 


CF33 

A5 

0D 


LDA $0D 

Typflag 

CF35 

F0 

26 


BEQ $CF5D 

numerisch ? 

CF37 

A9 

00 


LDA #$00 


CF39 

85 

70 


STA $70 


CF3B 

20 

14 

CF 

JSR $CF 14 

Descriptor im Interpreter ? 

CF3E 

90 

IC 


BCC $CF5C 

nein, dann fertig 

CF40 

E0 

54 


CPX #154 

'T' 

CF42 

00 

18 


BNE $CF5C 


CF44 

C0 

C9 


CPY #$C9 

'1$' 

CF46 

00 

14 


BNE ICF5C 


CF48 

20 

84 

CF 

JSR ICF84 

Zeit holen 

CF4B 

84 

5E 


STY $5E 


CF4D 

88 



DEY 


CF4E 

84 

71 


STY $71 


CF50 

A0 

06 


LDY #$06 

Länge TI$ 

CF52 

84 

5D 


STY $5D 


CF54 

A0 

24 


LDY #$24 


CF56 

20 

68 

DE 

JSR $DE68 

TI$ erzeugen 

CF59 

4C 

6F 

04 

JMP $D46F 


CF5C 

60 



RTS 


CF5D 

24 

0E 


BIT $0E 

Integer/Real-Flag 

CF5F 

10 

0D 


BPL $CF6E 

Real ? 

CF61 

A0 

00 


LDY #$00 


CF63 

Bl 

64 


LDA ($64), Y 


CF65 

AA 



TAX 


CF66 

C8 



INY 

Integerzahl holen 

CF67 

Bl 

64 


LDA ($64),Y 


CF69 

A8 



TAY 


CF6A 

8A 



TXA 


CF6B 

4C 

91 

D3 

JMP $D391 

und nach Fließkomma wandeln 

CF6E 

20 

14 

CF 

JSR $CF14 

steht Variable im Interpreter ? 

CF7 1 

90 

2D 


BCC $CFA0 

ja, dann Variablenwert holen 

CF73 

E0 

54 


CPX #$54 

'T* 

CF75 

D0 

1B 


BNE $CF92 
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CF77 

C0 49 

CPY #$49 

'I ' 

CF79 

DB 25 

BNE $CFA0 


CF7B 

20 84 CF 

JSR $CF84 

Zeit in FAC holen 

CF7E 

98 

TYA 


CF7F 

A2 A0 

LDX #$A0 

Adresse low Byte von TI 

CF81 

4C 4F DC 

JMP $DC4F 

nach FAC wandeln 

***************************** 

Zeit holen 

CF84 

20 DE FF 

JSR $FFDE 

TIME nach A/X/Y holen 

CF87 

86 64 

STX $64 


CF89 

84 63 

STY $63 


CF8B 

85 65 

STA $65 


CF8D 

A0 00 

LDY #$00 

und in Fließkommaakku 

CF8F 

84 62 

STY $62 


CF91 

60 

RTS 


******###*####**###*#**##*##* 


CF92 

E0 53 

DPX #$53 

'S ' 

CF94 

D0 0A 

BNE $CFA0 


CF96 

C0 54 

CPY #$54 

'T' 

CF98 

D0 06 

BNE $CFAB 


CF9A 

20 B7 FF 

JSR $FFB7 

Status holen 

CF9D 

4C 3C DC 

JMP $DC3C 

Byte-Wert nach Fließkomma wandi 

####*#*********************** 

REAL-Variab 1e holen 

CFA0 

A5 64 

LDA $64 


CFA2 

A4 65 

LDY $65 

Variab 1en adresse 

CFA4 

4C A2 DB 

JMP $DBA2 

Variable in FAC holen 

CFA7 

0A 

ASL 

Kode mal 2 

CFA8 

48 

PHA 


CFA9 

AA 

TAX 


CFAA 

20 73 00 

JSR $0073 

CHRGET nächstes Zeichen holen 

CFAD 

E0 8F 

CPX #$8F 


CFAF 

90 20 

BCC ICFD1 

numerische Funktion ? 

CFB1 

20 FA CE 

JSR $CEFA 

prüft auf '(' Klammer auf 

CFB4 

20 9E CD 

JSR $CD9E 

FRMEVL holt Ausdruck 

CFB7 

20 FD CE 

JSR $CEFD 

CHKCOM prüft auf Komma 

CFBA 

20 8F CD 

JSR $CD8F 

prüft auf String 

CFBD 

68 

PLA 

CFBE 

AA 

TAX 


CFBF 

A5 65 

LDA $65 


CFC1 

48 

PHA 

Adresse des Stringdescriptors 

CFC2 

A5 64 

LDA $64 

CFC4 

48 

PHA 


CFC5 

8A 

TXA 


CFC6 

48 

PHA 


CFC7 

20 9E D7 

JSR $D79E 

holt Byte-Wert 

CFCA 

68 

PLA 

CFCB 

A8 

TAY 


CFCC 

8A 

TXA 


CFCD 

48 

PHA 


CFCE 

4C D6 CF 

JMP ICFD6 

Routine ausführen 

CFD1 

20 Fi CE 

JSR $CEF1 

holt Term in Klammern 

CFD4 

68 

PLA 


CFD5 

A8 

TAY 


CFD6 

B9 EA *F 

LDA $BFEA,Y 


CFD9 

85 55 

STA $55 

setzt Vektor für 

CFDB 

B9 EB BF 

LDA $BFEB,Y 

Funktionsberechnung 
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CFDE 85 56 STA $56 

CFE0 20 54 00 JSR $0054 

CFE3 4C 8D CD JMP $CD8D 

***************************** 
CFE6 A0 FF LDY #$FF 

CFE8 2C .BYTE $2C 


***************************** 


CFE9 

A0 

00 

LDY 

*$00 

CFEB 

84 

0B 

STY 

$0B 

CFED 

20 

BF Dl 

JSR 

$D1BF 

CFF0 

A5 

64 

LDA 

$64 

CFF2 

45 

0B 

EOR 

$0B 

CFF4 

85 

07 

STA 

$07 

CFF6 

A5 

65 

LDA 

$65 

CFF8 

45 

0B 

EOR 

$0B 

CFFA 

85 

08 

STA 

$08 

CFFC 

20 

FC DB 

JSR 

$DBFC 

CFFF 

20 

BF Dl 

JSR 

$D 1 BF 

D002 

A5 

65 

LDA 

$65 

D004 

45 

0B 

EOR 

$08 

D006 

25 

08 

AND 

$08 

D008 

45 

0B 

EOR 

$0B 

D00A 

A8 


TAY 


D00B 

A5 

64 

LDA 

$64 

D00D 

45 

0B 

EOR 

$0B 

D00F 

25 

07 

AND 

$07 

D011 

45 

0B 

EOR 

$0B 

D013 

4C 

91 D3 

JMP 

$D391 

***************************** 

D016 

20 

90 CD 

JSR 

$CD90 

DB 19 

B0 

13 

BCS 

$D02E 

D01B 

A5 

6E 

LDA 

$6E 

D01D 

09 

7F 

ORA 

#$7F 

D01F 

25 

6A 

AND 

$6A 

D021 

85 

6A 

STA 

$6A 

D023 

A9 

69 

LDA 

#$69 

D025 

A0 

00 

LDY 

#$00 

D027 

20 

5B DC 

JSR 

$DC5B 

D02A 

AA 


TAX 


D02B 

4C 

61 D0 

JMP 

$D061 

***************************** 

D02E 

A9 

00 

LDA 

#$00 

D030 

85 

0D 

STA 

$0D 

D032 

C6 

4D 

DEC 

$4D 

D034 

20 

A6 D6 

JSR 

$D6A6 

D037 

85 

61 

STA 

$61 

D039 

86 

62 

ST X 

$62 

D03B 

84 

63 

STY 

$63 

D03D 

A5 

6C 

LDA 

$6C 

D03F 

A4 

6D 

LDY 

$6D 

D04 1 

20 

AA D6 

JSR 

$D6AA 

D044 

86 

6C 

STX 

$6C 

D046 

84 

6D 

STY 

$6D 

D048 

AA 


TAX 


D049 

38 


SEC 


D04A 

E5 

61 

SBC 

$61 


Funktion ausfübren 
prüft auf numerisch 

BAS I C-Öperator OR 
Flag für OR 


BASIC-Operator AND 
Flag für AND 
speichern 

FAC nach Integer wandeln 


mit Flag verküpfen und nach $7/$8 


ARG nach FAC 

FAC nach Integer wandeln 


logische Verknüpfung 


wieder nach Fließkomma wandeln 
Vergleich 

prüft auf identischen Variablentyp 
String ? dann weiter 

ARG in Speicherformat 


Zeiger A/Y auf ARG 

Vergleich ARG mit FAC 

Ergebnis in FAC holen 

Stringvergleich 

Stringflag löschen 

FRESTR 
Stringlänge 

Stringadresse 

Zeiger auf zweiten String 
FRESTR 

Stringadresse des 2. Strings 
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D04C 

F0 

08 


BEQ $0056 

Längen vergleichen 


D04E 

A9 

01 


LDA #$01 



D050 

90 

04 


BCC $0056 

2. String kürzer 


D052 

A6 

61 


LDX $61 

Länge des ersten Strings 


0054 

A9 

FF 


LDA #$FF 



DB56 

85 

66 


STA $66 



D058 

A0 

FF 


LOY #$FF 



D05A 

E8 



I NX 



D05B 

C8 



INY 



DB5C 

CA 



DEX 



D05D 

D0 

07 


BNE ID066 



D05F 

A6 

66 


LDX $66 



0061 

30 

0F 


BMI $D072 



0063 

18 



CLC 



0064 

90 

0C 


BCC $0072 



0066 

Bl 

6C 


LDA ($60 , Y 

zeichenweiser Vergleich 


0068 

Di 

62 


CMP ($62),Y 

der Strings 


D06A 

F0 

EF 


BEQ $D05B 



D06C 

A2 

FF 


LDX #$FF 



D 06 E 

B0 

02 


BCS $D072 



D070 

A2 

01 


LDX #$01 



D072 

E8 



I NX 



D073 

8A 



TXA 



D074 

2A 



ROL 



D075 

25 

12 


AND $12 



D077 

F0 

02 


BEQ $D07B 



D079 

A9 

FF 


LDA #$FF 



D07B 

4C 

3C 

DC 

JMP $DC3C 

Ergebnis nach FAC holen 


D07E 

20 

FD 

CE 

JSR $CEFD 

CHKCQM prüft auf Komma 


***************************** 

BASIC-Befehl DIM 


D081 

AA 



TAX 



0082 

20 

90 

00 

JSR $0090 

Variable dimensionieren 


0085 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen 

hol en 

0088 

D0 

F4 


BNE $D07E 

nicht Erde, dann zur nächsten Var: 

D08A 

60 



RTS 



0086 

A2 

00 


LDX #$00 

Flag für nicht dimensioniert 

0080 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen 

holen 

0090 

86 

0C 


STX $0C 

DIM-Flaq setzen 


0092 

85 

45 


STA $45 

Variab 1enname 


0094 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen 

holen 

0097 

20 

13 

01 

JSR $0113 

prüft auf Buchstabe 


D09A 

B0 

03 


BCS $D09F 

ja 


D09C 

4C 

08 

CF 

JMP $CF0B 

gibt 'syntax error ' 


D09F 

A2 

00 


LDX #$00 



D0A1 

86 

0D 


STX $00 

Typflag löschen 


D0A3 

86 

0E 


STX $0E 

Integerflag löschen 


D0A5 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

D0A8 

90 

05 


BCC $D0AF 

Ziffer 7 


O0AA 

20 

13 

01 

JSR $D113 

prüft auf Buchstabe 


D0AD 

90 

0B 


BCC $D0BA 

nein 


D0AF 

AA 



TAX 



O0B0 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

D0B3 

90 

FB 


BCC $D0B0 

Ziffer 7 


D0B 5 

20 

13 : 

Dl 

JSR $D1i3 

prüft auf Buchstabe 


D0B8 

B0 

F 6 


BCS $D0BB 

ja 


D0BA 

C9 

24 


CMP #$24 

$ 
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D0BC 

D0 

06 


BNE 

$D0C4 

nein 

D0BE 

A9 

FF 


LDA 

#$FF 


D0C0 

85 

0D 


STA 

$0D 

Stringflag setzen 

D0C2 

D0 

10 


BNE 

$D0D4 


D0C4 

C9 

25 


CMP 

#$25 

'7.' 

D0C6 

D0 

13 


BNE 

$D0DB 

nein 

D0CB 

A5 

10 


LDA 

$10 

Integer erlaubt ? 

D0CA 

D0 

D0 


BNE 

$D09C 

nein, 'syntax error' 

D0CC 

A9 

80 


LDA 

#$80 


D0CE 

85 

0E 


STA 

$0E 

Integerflag setzen 

D0D0 

05 

45 


ORA 

$45 

Bit 7 im Namen setzen 

D0D2 

85 

45 


STA 

$45 


D0D4 

BA 



TXA 



D0D5 

09 

80 


ORA 

#$B0 


D0D7 

AA 



TAX 



D0D8 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

D0DB 

86 

46 


STX 

$46 

zweiten Buchstaben des Namens speichern 

D0DD 

38 



SEC 



D0DE 

05 

10 


ORA 

$10 


D0E0 

E9 

29 


SBC 

#$28 

' (' 

D0E2 

D0 

03 


BNE 

$D0E7 

nicht Klammer auf ? 

D0E4 

4C 

Dl 

Dl 

JMP 

$D 1 D1 

dimensionierte Variable verarbeiten 

D0E7 

A0 

00 


LDY 

#$00 


D0E9 

84 

10 


STY 

$10 


D0EB 

A5 

2D 


LDA 

$2D 

Zeiger auf Variablenanfang 

D0ED 

A6 

2E 


LDX 

$2E 


D0EF 

86 

60 


STX 

$60 


DSF 1 

85 

5F 


STA 

$5F 

zum Suchen merken 

D0F3 

E4 

30 


CPX 

$30 


D0F5 

D0 

04 


BNE 

$D0FB 


D0F7 

C5 

2F 


CMP 

$2F 

Ende der Varibalen schon erreicht ? 

D0F9 

F0 

22 


BEQ 

$D 11D 

ja, nicht gefunden 

D0FB 

A5 

45 


LDA 

$45 

ersten Buchstaben des Namens 

D0FD 

DI 

5F 


CMP 

($5F),Y 

mit Variablentabelle vergleichen 

DßFF 

D0 

08 


BNE 

$D 109 

nein, weitersuchen 

D101 

A5 

46 


LDA 

$46 

zweiten Buchstaben 

D1 03 

CB 



I NY 



D1 04 

DI 

5F 


CMP 

($5F), Y 

vergleichen 

D106 

F0 

7D 


BEQ 

$D 185 


D 10B 

88 



DEY 



D109 

18 



CLC 



D1 0A 

A5 

5F 


LDA 

$5F 


D10C 

69 

07 


ADC 

#$07 

Zeiger um sieben erhöhen (2+5 Byte) 

D10E 

90 

El 


BCC 

ID0F1 


Dl 10 

E8 



I NX 



Dill 

D0 

DC 


BNE 

$D0EF 

weiter suchen 

***************************** 

prüft auf Buchstabe 

Dl 13 

C9 

41 


CMP 

#$41 

'A ' 

Dl 15 

90 

05 


BCC 

$D 11C 


Dl 17 

E9 

5B 


SBC 

#$5B 


Dl 19 

38 



SEC 


ja, dann C-l 

D11A 

E9 

A5 


SBC 

#$A5 

nein, dann C=0 

D11C 

60 



RTS 





D11D 

68 



PLA 



DilE 

48 



F'HA 


Auf rufadresse prüfen 

Dl 1F 

C9 

2A 


CMP 

#$2A 

Aufruf von FRMEVL ? 
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D121 

00 

05 

BNE 

$0128 

0123 

A9 

13 

LOA 

##13 

0125 

A0 

DF 

LDY 

#$DF 

0127 

60 


RTS 


0128 

A 5 

45 

LDA 

$45 

012A 

A4 

46 

LDY 

$46 

012C 

C9 

54 

CMP 

#$54 

D12E 

00 

0B 

BNE 

$ D 13 B 

D130 

C0 

C9 

CP Y 

#$C9 

0132 

F0 

EF 

BEQ 

$0123 

D1 34 

C0 

49 

CPY 

#$49 

0136 

D0 

03 

BNE 

$D13B 

0138 

4C 

08 CF 

J MP 

$CF08 

013B 

C9 

53 

CMP 

#$53 

01 3D 

00 

04 

BNE 

$0143 

013F 

C0 

54 

CPY 

#$54 

0141 

F0 

F5 

BEß 

$0138 

0143 

A5 

2F 

LDA 

$2F 

0145 

A4 

30 

LDY 

$30 

0147 

85 

5F 

STA 

$5F 

0149 

84 

60 

STY 

$60 

0146 

A5 

31 

LDA 

$31 

0140 

A4 

32 

LDY 

$32 

BMF 

85 

5A 

STA 

$5A 

0151 

84 

5B 

STY 

$5B 

0153 

18 


CLC 


0154 

69 

07 

ADC 

#$07 

0156 

90 

01 

BCC 

$D 159 

0158 

C8 


INY 


0159 

85 

58 

STA 

$58 

015B 

84 

59 

STY 

$59 

0150 

20 

B8 03 

JSR 

IC3B8 

0160 

A5 

58 

LDA 

$58 

0162 

A4 

59 

LDY 

$59 

0164 

C8 


INY 


0165 

85 

2F 

STA 

$2F 

0167 

84 

30 

STY 

$30 

0169 

A0 

00 

LDY 

#$00 

B16B 

A5 

45 

LDA 

$45 

0160 

91 

5F 

STA 

(#5F),Y 

D16F 

08 


INY 


0170 

A5 

46 

LDA 

$46 

0172 

91 

5F 

STA 

($5F) , Y 

0174 

A9 

00 

LDA 

#$00 

0176 

CB 


INY 


0177 

91 

5F 

STA 

($5F),Y 

0179 

C8 


INY 


017A 

91 

5F 

STA 

($5F) , Y 

017C 

CB 


INY 


0170 

91 

5F 

STA 

($5F) ,Y 

017F 

C8 


INY 


0180 

91 

5F 

STA 

($5F) ,Y 

0182 

CB 


INY 


0183 

91 

5F 

STA 

($5F) , Y 

0185 

A5 

5F 

LDA 

$5F 

0187 

18 


CLC 


0188 

69 

02 

ADC 

#$02 

B18A 

A4 

60 

LDY 

$60 

018C 

90 

01 

BCC 

$D18F 

D18E 

C8 


INY 



nein 

Zeiger auf Konstante 0 


Varibalenname 
*T* 

' 1 $' 

ja ,TI* 

' I ' 
nein 

gibt 'syntax error ' 

'S' 

'T' 

ST, dann 'syntax error' 

Zeiger auf Arraytabelle 
merken 

Zeiger auf Ende der Arraytabelle 
merken 

um 7 verschieben für Anlage einer 
neuen Varaibalen 


neues Blockende 
Block verschieben 


Zeiger auf Arraytabelle neu setzen 


erster Buchstabe des Namens 


zweiter Buchstabe des Namens 


jmal Null als Variab 1enwert 
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D18F 

85 

47 

STA $47 


D191 

84 

48 

STY $48 


D193 

60 


RT5 


***************************** 

berechnet Zeiger auf erstes Arrayelement 

D 194 

A5 

0B 

LDA $0B 

Anzahl der Dimensionen 

D196 

0A 


ASL 

mal 2 

D 197 

69 

05 

ADC #$05 

plus 5 

D 199 

65 

5F 

ADC $5F 


D 19B 

A4 

60 

LDY $60 

zu $5F/$60 addieren 

D19D 

90 

01 

BCC $D1A0 


D19F 

C8 


INY 


D 1A0 

85 

58 

STA $58 

Ergebnis-Zeiger 

D1A2 

84 

59 

STY $59 


D 1 A4 

60 


RTS 



***************************** 


D1A5 

90 

80 

00 00 

00 


Fließkommakonstante -32768 

***************************** 


Dl AA 

20 

BF 

Dl 

JSR 

$ D 1 BF 

FAC nach Integer warndein 

D 1 AD 

A5 

64 


LDA 

$64 


DiAF 

A4 

65 


LDY 

$65 


D1B1 

60 



RTS 



****************************** 

Umwandlung Fließkomma nach Integer 

D1B2 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

D1B5 

20 

9E 

CD 

JSR 

$CD9E 

FRMEVL Ausdruck holen 

D1B3 

20 

8D 

CD 

JSR 

$CD8D 

prüft auf numerisch 

D1BB 

A5 

66 


LDA 

$66 

Vorzeichen 

D1BD 

30 

0D 


BMI 

$D1CC 

negativ, dann 'illegal quantity 

Dl BF 

A5 

61 


LDA 

$61 

Exponent 

D1C1 

C9 

90 


CMP 

#$90 

Betrag größer 32768 ? 

D1C3 

90 

09 


BCC 

$ D1C E 

nein 

D1C5 

A9 

A5 


LDA 

#$A5 


D1C7 

A0 

Dl 


LDY 

#$D 1 

Zeiger auf Konstante -3276S 

D1C9 

20 

5B 

DC 

JSR 

$DC5B 

mit FAC vergleichen 

D1CC 

D0 

7A 


BNE 

ID248 

ungleich, dann 'illegal qunatity 

D1CE 

4C 

9B 

DC 

J MP 

$DC9B 

wandelt Fließkomma nach Integer 

***** 

************************ 

dimensionierte Variable 

D1D1 

A5 

0C 


LDA 

$0C 

DIM-Flag 

D1D3 

05 

0E 


QRA 

$0E 

I nteger-Flag 

D1D5 

48 



PHA 



D1D6 

A5 

0D 


LDA 

$0D 

Typ-Flag 

D1D8 

48 



PHA 



D1D9 

A0 

00 


LDY 

#$00 


D1DB 

98 



TYA 



D1DC 

48 



PHA 



D1DD 

A5 

46 


LDA 

$46 

zweiter Buchstabe des Namens 

D1DF 

48 



PHA 



D1E0 

A5 

45 


LDA 

$45 

erster Buchstabe des Variablennamens 

D1E2 

48 



PHA 



D1E3 

20 

B2 

Dl 

JSR 

$D 1B2 

Index holen und nach Integer 

D1E6 

68 



PLA 



D1E7 

85 

45 


STA 

$45 


D1E9 

68 



PLA 


Variablenname zurückholen 

D1EA 

85 

46 


STA 

$46 


Dl EC 

68 



PLA 



D1ED 

A8 



TAY 




73 



Dl EE 

BA 



TSX 



D1EF 

BD 

02 

01 

LDA 

$0102,X 


D1F2 

48 



PHA 


Flags vom Stack holen 

D1F3 

BD 

01 

01 

LDA 

$0101,X 


D1F6 

48 



PHA 



D1F7 

A5 

64 


LDA 

$64 


D1F9 

9D 

05 

01 

STA 

$0102,X 

Index low und 'high auf Stack 

D1FC 

A5 

65 


LDA 

$65 

D1FE 

9D 

01 

01 

STA 

$0101,X 


D201 

CB 



INY 



D202 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

D205 

C9 

2C 


CMP 

#$2C 

', ' Komma 

D207 

F0 

D2 


BEQ 

$D 1DB 

ja, dann nächsten Index 

D209 

84 

0B 


STY 

$0B 

Anzahl der Indizes 

D20B 

20 

F7 

CE 

JSR 

$CEF7 

prüft auf Klammer zu 

D20E 

68 



PLA 



D20F 

85 

0D 


STA 

$0D 


D211 

68 



PLA 


Flags zurückholen 

D212 

85 

0E 


STA 

$0£ 


D214 

29 

7F 


AND 

#$7F 


D216 

85 

0C 


STA 

$0C 


D218 

A6 

2F 


LDX 

$2F 


D21A 

A5 

30 


LDA 

$30 

Zeiger auf Arraytabelle 

D21C 

86 

5F 


STX 

$5F 


D21E 

85 

60 


STA 

$60 

Zeiger merken 

D220 

C5 

32 


CMP 

$32 

D222 

00 

04 


BNE 

$0228 


D224 

E4 

31 


CPX 

$31 

mit Tabellenende vergleichen 

D226 

F0 

39 


BEQ 

$0261 

ja, nicht gefunden 

D228 

A0 

00 


LDY 

#$00 


D22A 

Bl 

5F 


LDA 

C $5F),V 

Namen aus Tabelle 

D22C 

C8 



INY 



D22D 

C5 

45 


CMP 

$45 

mit gesuchtem Namen vergleichen 

D22F 

D0 

06 


BNE 

$0237 


D231 

A5 

46 


LDA 

$46 

zweiten Buchstaben 

D233 

Dl 

5F 


CMP 

($5F) , Y 

ver g1 eichen 

D235 

F0 

16 


BEQ 

$D24D 

gefunden 

D237 

C8 



INY 


D238 

Bl 

5F 


LDA 

($5F),Y 


D23A 

18 



CLC 



D23B 

65 

5F 


ADC 

$5F 

Feldlänge addieren 

D23D 

AA 



TAX 


D23E 

C8 



INY 



D23F 

Bl 

5F 


LDA 

($5F), Y 


D241 

65 

60 


ADC 

$60 


D243 

90 

D7 


BCC 

$021C 

und weiter suchen 

D245 

A2 

12 


LDX 

#$12 

Nummer für 'bad subscript' 

D247 

2C 



.BYTE $2C 

D24B 

A2 

0E 


LDX 

#$0E 

Nummer für 'illegal quantity' 

D24A 

4C 

37 

C4 

JMP 

$C437 

Fehlermeldung ausgeben 

D24D 

A2 

13 


LDX 

#113 

Nummer für 'redim'd array' 

D24F 

A5 

0C 


LDA 

$0C 

DIM-Flag null ? 

D251 

D0 

F7 


BNE 

$024 A 

nein, dann Fehlermeldung 

D253 

20 

94 

Dl 

JSR 

$D 194 

setzt Zeiger auf erstes Arrayelement 

D256 

A5 

0B 


LDA 

$0B 

Zahl der gefundenen Dimensionen 

D258 

A0 

04 


LDY 

#$04 


D25A 

Dl 

5F 


CMP 

($5F) ,Y 

mit Dimensionen des Arrays vergleichen 

D25C 

D0 

E7 


BNE 

$D24 5 

ungleich, dann 'bad subscript' 
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D25E 

4C EA D2 

JMP $D2EA 

sucht gewünschtes Arrayelement 

***************************** 

Arrayvariable anlegen 

D261 

20 94 Di 

JSR ID 194 

Länge des Arraykopfs berechnen 

D264 

20 08 C4 

JSR $C408 

prüft auf genügend Platz im Speicher 

D267 

A0 00 

IDY #$00 


D269 

84 72 

STY $72 

Defaultwert für Variab 1en1änge (Real) 

D26B 

A2 05 

LDX #$05 

D26D 

A5 45 

LDA $45 

erster Buchstabe des Namens 

D26F 

91 5F 

STA ($5F),Y 

in Arraytabelle 

D27 1 

10 01 

BPL $D274 

kein Integer ? 

D273 

CA 

DEX 


D274 

C8 

INY 


D275 

A5 46 

LDA $46 

zweiter Buchstabe 

D277 

91 5F 

STA ($5F),Y 

in Tabelle schreiben 

D279 

10 02 

BPL $D27D 

kein String oder Integer ? 

D27B 

CA 

DEX 


D27C 

CA 

DEX 

endgültige Variablenlänge (2, 3 oder 5) 

D27D 

86 71 

STX $71 

D27F 

A5 0B 

LDA $0B 

Anzahl der Dimensionen 

D2S1 

C8 

INY 


D282 

C8 

INY 


D283 

C8 

INY 


D284 

91 5F 

STA ($5F> , Y 

speichern 

D286 

A2 0B 

LDX #$0B 

ll f Default für Dimensionierung 

D288 

A9 00 

LDA #$00 


D28A 

24 0C 

BIT $0C 

Aufruf durch DIM-Befehl ? 

D28C 

50 08 

BVC $D296 

nein 

D28E 

68 

PLA 

Dimension vom Stack holen 

D28F 

18 

CLC 

eins addieren für Nullelement 

D290 

69 01 

ADC #$01 

D292 

AA 

TAX 


D293 

60 

PLA 


D294 

69 00 

ADC #$00 


D296 

CB 

INY 


D297 

91 5F 

STA ($5F),Y 


D299 

C8 

INY 


D29A 

8A 

TXA 

und speichern 

D 2 9 B 

91 5F 

STA ($5F) ,Y 

Platz für weitere Dimensionen berechnen 

D29D 

20 4C D3 

JSR $D34C 

D2A0 

86 71 

STX $71 

Variablenendezeiger merken 

D2A2 

85 72 

STA $72 

D2A4 

A4 22 

LDY $22 


D2A6 

C6 0B 

DEC $0B 

weitere Dimensionen 

D2A8 

D0 DC 

BNE $D286 

ja 

D2AA 

65 59 

ADC $59 


D2AC 

B0 5D 

BCS $D30B 

Feldlänge plus Startadresse 

D2AE 

85 59 

STA $59 


D2B0 

A8 

TAY 


D2B1 

8A 

TXA 


D2B2 

65 58 

ADC $58 


D2B4 

90 03 

BCC $D2B9 


D2B6 

C8 

INY 


D2B7 

F0 52 

BEQ $D30B 

prüft auf genügend Speicherplatz 

D2B9 

20 08 C4 

JSR $C408 

D2BC 

85 31 

STA $31 

Zeiger auf Ende der Arraytabelle 

D2BE 

B4 32 

STY $32 

- D2C0 

A9 00 

LDA #$00 

Array mit Nullen füllen 

D2C2 

E6 72 

INC $72 


D2C4 

A4 71 

LDY $71 
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D2C6 F0 05 BEQ $D2CD 

D2C8 88 DEY 

D2C9 91 58 STA ($58),Y 

D2CB D0 FB BNE $D2C8 

D2CD C6 59 DEC $59 

D2CF C6 72 DEC $72 

D2D1 D0 F5 BNE $D2C8 

D2D3 E6 59 INC $59 

D2D5 38 SEC 

D2D6 A5 31 LDA $31 

D2D8 E5 5F SBC $5F 

D2DA A3 02 LDY #$02 

D2DC 91 5F STA ($5F),Y Arraylänge low 

D2DE A5 32 LDA $32 

D2E0 C8 INY 

D2E1 E5 60 SBC $60 

D2E3 91 5F STA ($5F),Y Arraylänge high 

D2E5 A5 0C LDA $0C Aufruf durch DIM-Befehl ? 

D2E7 D0 62 BNE $D34B ja, RTS 

fr***###********#*#*#*#####**# Arrayelement suchen 
D2E9 C8 INY 

D2EA Bl 5F LDA <$5F),Y Zahl der Dimensionen 

D2EC 85 0B STA $0B 

D2EE A9 00 LDA #$00 

D2F0 85 71 STA $71 

D2F2 85 72 STA $72 

D2F4 C8 INY 

D2F5 68 FLA 

D2F6 AA TAX 

D2F7 85 64 STA $64 

E2F9 68 PLA Index vom Stack holen 

D2FA 85 65 STA $65 

D2FC Dl 5F CUP ($5F),Y mit Wert im Array vergleichen 

D2FE 90 0E BCC $D30E kleiner ? 

D300 D0 06 BNE $D308 größer, dann 'bad subscript' 

D302 C8 INY 

D303 8A TXA 

D304 Dl 5F CMP ($5F),Y bei Gleichheit low-Byte vergleichen 

D306 90 07 BCC $D30F kleiner, dann weiter 

D308 4C 45 D2 JMP $D245 gibt 'bad subscript' 

D30B 4C 35 C4 JMP $C435 gibt 'out of memory' 


******#*#*#***###*******####* Berechnung der Adresse eines Arrayelements 

D30E CB INY 

D30F A5 72 LDA $72 

D311 05 71 QRA $71 

D313 18 CLC 

D314 F0 0A BEQ $D320 

D316 20 4C D3 JSR $D34C Multiplikation 

D319 8A TXA 

D31A 65 64 ADC $64 

D31C AA TAX 

D31D 98 TYA 

D31E A4 22 LDY $22 

D320 65 65 ADC $65 

D322 86 71 STX $71 

D324 C6 0B DEC $0B Anzahl der Dimensionen 

D326 D0 CA BNE $D2F2 mit nächstem Index weitermachen 

0328 85 72 STA $72 
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D32A 

A2 

05 


LDX 

#$05 

D32C 

A5 

45 


LDA 

$45 

D32E 

10 

01 


BPL 

$D331 

D330 

CA 



DEX 


D331 

A5 

46 


LDA 

$46 

D333 

10 

02 


BPL 

$D337 

D335 

CA 



DEX 


D336 

CA 



DEX 


D337 

86 

28 


ST X 

$28 

D339 

A9 

00 


LDA 

#$00 

D33B 

20 

55 

D3 

J SR 

$D355 

D33E 

8A 



TXA 


D33F 

65 

58 


ADC 

$58 

D341 

85 

47 


STA 

$47 

D343 

98 



TYA 


D344 

65 

59 


ADC 

$59 

D346 

85 

48 


STA 

$48 

D348 

A8 



TAY 


D349 

A5 

47 


LDA 

$47 

D34B 

60 



RTS 


***************************** 

D34C 

84 

22 


STY 

$22 

D34E 

Bl 

5F 


LDA 

($5F) , Y 

D350 

85 

28 


STA 

$28 

D352 

88 



DEY 


D353 

Bl 

5F 


LDA 

($5F),Y 

D355 

85 

29 


STA 

$29 

D357 

A9 

10 


LDA 

#$10 

D359 

85 

5D 


STA 

$5D 

D35B 

A2 

00 


LDX 

#$00 

D35D 

A0 

00 


LDY 

#$00 

D35F 

8A 



TXA 


D360 

0A 



ASL 


D361 

AA 



TAX 


D362 

98 



TYA 


D363 

2A 



ROL 


D364 

A3 



TAY 


D365 

B0 

A4 


BCS 

$D30B 

D367 

06 

71 


ASL 

$71 

D369 

26 

72 


ROL 

$72 

D36B 

90 

0B 


BCC 

$D378 

D36D 

18 



CLC 


D36E 

8A 



TXA 


D36F 

65 

28 


ADC 

$28 

D371 

AA 



TAX 


D372 

98 



TYA 


D373 

65 

29 


ADC 

$29 

D375 

AB 



TAY 


D376 

B0 

93 


BCS 

$D308 

D378 

C6 

5D 


DEC 

$5D 

D37A 

D0 

E3 


BNE 

$D35F 

D37C 

60 



RTS 


***************************** 

D37D 

A5 

0D 


LDA 

$0D 

D37F 

F0 

03 


BEG 

$D3B4 

D381 

20 

A6 

D6 

JSR 

$D6A6 

D384 

20 

26 

D5 

J SR 

$D526 

D387 

38 



SEC 



Default für Variab 1en1änge (Real) 
erster Buchstabe des Namens 


zweiter Buchstabe des Namens 


Länge der Variablen 2, 3 oder 5 
Offset im Array berechnen 


Hilfsroutine für Arrayberechnung 


BASIC-Funktion FRE 
Typ-Flag 
numerisch ? 

FRESTR 

Garbage Collection 
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D3B8 

A5 

33 


LDA 

$33 


D38A 

E5 

31 


SBC 

$31 

Stringanfang 

D38C 

A8 



TAY 



D38D 

A5 

34 


LDA 

$34 


D38F 

E5 

32 


SBC 

$32 

minus Variablenende 

D391 

A2 

00 


LDX 

#$00 


D393 

86 

00 


ST X 

$0D 

Flag auf numerisch setzen 

D395 

85 

62 


STA 

$62 

D397 

84 

63 


STY 

$63 

Ergebnis merken 

D399 

A2 

90 


LDX 

#$90 


D39B 

4C 

44 

DO 

JMP 

$DC44 

und nach Fließkomma wandeln 

***************************** 

BASIC-Funktion POS 

D39E 

38 



SEC 


C = 1 

D39F 

20 

F0 

FF 

JSR 

$F FF0 

Cursorposi t i on holen 

D3A2 

A9 

00 


LDA 

#$00 


D3A4 

F0 

EB 


BEQ 

$0391 

weiter wie oben 

***************************** 

Test auF Direkt-Modus 

D3A6 

A6 

3A 


LDX 

$3A 


D3A8 

E8 



I NX 



D3A9 

D0 

A0 


BNE 

$D34B 

nein, dann RTS 

D3AB 

A2 

15 


LDX 

#$15 

Nummer Für 'illegal direct' 

D3AD 

2C 



.BYTE $2C 


D3AD 

A2 

1B 


LDX 

#$ 1B 

Nummer Für 'undeF'd Function' 

D3B0 

40 

37 

04 

JMP 

$0437 

Fehlermeldung ausgeben 

fr**************************** 

BASIC-Befehl DEF 

D3B3 

20 

El 

D3 

JSR 

$D3E 1 

prüFt FN-Syntax 

D3B& 

20 

A6 

D3 

JSR 

$D3A6 

Direktmodus ? 

D3B9 

20 

FA 

CE 

JSR 

$CEFA 

prüft auF Klammer auF 

D3BC 

A9 

80 


LDA 

#$80 


D3BE 

85 

10 


STA 

$10 

sperrt Integer-Variable 

D3C0 

20 

8B 

D0 

JSR 

$D08B 

sucht Variable 

D3C3 

20 

80 

CD 

JSR 

$CD8D 

prüft auF numerisch 

D3C6 

20 

F7 

CE 

JSR 

$CEF7 

prüFt auF Klammer zu 

D3C9 

A9 

B2 


LDA 

#$B2 

'=' - Kode 

D3CB 

20 

FF 

CE 

JSR 

$CEFF 

prüFt auf Kode 

D3CE 

48 



PHA 


D3CF 

A5 

48 


LDA 

$48 


D3D1 

48 



PHA 


FN-Variablenadresse auf Stack 

D3D2 

A5 

47 


LDA 

$47 


D3D4 

48 



PHA 



D3D5 

A5 

7B 


LDA 

$7B 


D3D7 

48 



PHA 


Programmzeiger auf Stack 

D3D8 

A5 

7A 


LDA 

$7A 


D3DA 

48 



PHA 



D3DB 

20 

F8 

08 

JSR 

$C8F8 

Programmzeiger auf nächstes Statement 

D3DE 

40 

4F 

D4 

JMP 

$D44F 

FN-Variable vom Stack holen 

***************************** 

prüft FN-Syntax 

D3E1 

A9 

A5 


LDA 

#$A5 

'FN' -Kode 

D3E3 

20 

FF 

CE 

JSR 

$CEFF 

prüft auf Kode 

D3E6 

09 

30 


ORA 

#$80 


D3E8 

85 

10 


STA 

$10 

sperrt Integer-Variable 

D3EA 

20 

92 

D0 

JSR 

$D092 

sucht Variable 

D3ED 

85 

4E 


STA 

$4E 


D3EF 

84 

4F 


STY 

$4F 

FN-Variablenzeiger setzen 

D3F1 

40 

8D 

CD 

JMP 

$CD8D 

prüft auf numerisch 
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BASIC-Funktion FN 
prüft FN-Syntax 


***************************** 


D3F4 

20 

El 

D3 

JSR 

$D3E1 

D3F7 

A5 

4F 


IDA 

$4F 

D3F9 

48 



PHA 


D3FA 

A5 

4E 


LDA 

$4E 

D3FC 

48 



PHA 


D3FD 

20 

Fl 

CE 

JSR 

$CEF1 

D400 

20 

8D 

CD 

JSR 

$CDBD 

D403 

68 



PLA 


D404 

85 

4E 


STA 

$4E 

D406 

68 



PLA 


D407 

85 

4F 


STA 

$4F 

D409 

A0 

02 


LDY 

#$02 

D40B 

Bl 

4E 


LDA 

($4E) , Y 

D40D 

85 

47 


STA 

$47 

D40F 

AA 



TAX 


D4 i 0 

CB 



I NY 


D411 

Bl 

4E 


LDA 

($4E) , Y 

D413 

F0 

99 


BEQ 

$D3AE 

D415 

85 

48 


STA 

$48 

D417 

C8 



INY 


D418 

Bl 

47 


LDA 

($47) , Y 

D41A 

48 



PHA 


D41B 

88 



DEY 


D41C 

10 

FA 


BPL 

$D4 18 

D41E 

A4 

48 


LDY 

$48 

D420 

20 

D4 

DB 

JSR 

$DBD4 

D423 

A5 

7B 


LDA 

$7B 

D425 

48 



PHA 


D426 

A5 

7A 


LDA 

$7A 

D428 

48 



PHA 


D429 

Bl 

4E 


LDA 

($4E) ,Y 

D42B 

85 

7A 


STA 

$7A 

D42D 

C8 



INY 


D42E 

Bl 

4E 


LDA 

($4E) , Y 

D430 

85 

7B 


STA 

$7B 

D432 

A5 

48 


LDA 

$48 

D434 

48 



PHA 


D435 

A5 

47 


LDA 

$47 

D437 

48 



PHA 


D43B 

20 

8A 

CD 

JSR 

$CD8A 

D43B 

68 



PLA 


D43C 

85 

4E 


STA 

$4E 

D43E 

68 



PLA 


D43F 

85 

4F 


STA 

$4F 

D44 1 

20 

79 

00 

JSR 

$0079 

D444 

F0 

03 


BEQ 

$D449 

D446 

4C 

0 ! 

CF 

JHP 

$CF08 

D449 

68 



PLA 


D44A 

85 

7A 


STA 

$7A 

D44C 

68 



PLA 


D44D 

85 

7B 


STA 

$7B 

D44F 

A0 

00 


LDY 

#$00 

D451 

68 



PLA 


D452 

91 

4E 


STA 

($4E),Y 

D454 

68 



PLA 


D455 

C8 



INY 


D4 56 

91 

4E 


STA 

($4E) , Y 

D45B 

68 



PLA 


D459 

C8 



INY 



FN-Variablenzeiger auf Stack 


FN-Variablenzeiger zurückholen 


FAC nach FN-Variable übertragen 
Programmzeiger auf FN-Ausdruck 


FRMNUM numerischen Ausdruck holen 

CHRGQT laufendes Zeichen holen 
keine Heiteren Zeichen ? 
gibt 'syntax error' 


Programmzeiger zurückholen 


FN-Variable zurückholen 


holt Ausdruck in Klammern 
prüft auf numerisch 


gibt 'undef'd function' 
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D45A 

91 

4E 


STA 

<$4E) , Y 


D45C 

68 



PLA 



D45D 

C8 



I NY 



D45E 

91 

4E 


STA 

($4E) , Y 


D460 

68 



PLA 



D461 

C8 



INY 



D462 

91 

4E 


STA 

<$4E),Y 


D464 

60 



RTS 



*#*#***#**#**#*******###*#**# 

BASIC-Funktion STR$ 

D465 

20 

80 

CD 

JSR 

$CDBD 

prüft auf numerisch 

D468 

A0 

00 


LDY 

*$00 


D46A 

20 

DF 

DD 

JSR 

$DDDF 

FAC nach ASCII umwandeln 

D46D 

68 



PLA 



D46E 

68 



PLA 



D46F 

A9 

FF 


LDA 

#$FF 


D471 

A0 

00 


LDY 

#$00 

Startadresse auf $FF 

D473 

F0 

12 


BEG 

$D487 


******************t*#****#ft** 

Stringverwaltung 

D475 

A6 

64 


LDX 

$64 

D477 

A4 

65 


LDY 

$65 


D479 

86 

50 


STX 

$50 

Zeiger auf Stringdescriptor 

D47B 

84 

51 


STY 

$51 

D47D 

20 

F4 

D4 

JSR 

$D4F4 

prüft auf Speicherplatz, setzt 

D4B0 

86 

62 


STX 

$62 

D482 

84 

63 


STY 

$63 


D484 

85 

61 


STA 

$61 


D486 

60 



RTS 



D487 

A2 

22 


LDX 

#$22 


D489 

86 

07 


STX 

$07 


D48B 

86 

08 


STX 

$08 


D48D 

85 

6F 


STA 

$6F 

Startadresse des Strings 

D48F 

84 

70 


STY 

$70 

D491 

85 

62 


STA 

$62 


D493 

84 

63 


STY 

$63 


D495 

A0 

FF 


LDY 

#$FF 


D497 

CB 



INY 


Zeiger erhöhen 

D498 

Bl 

6F 


LDA 

($6F),Y 

nächstes Zeichen des Strings 

D49A 

F0 

0C 


BEG 

$D4A8 

Endekennzeichen ? 

D49C 

C5 

07 


CMP 

$07 


D49E 

F0 

04 


BEQ 

$D4A4 


D4A0 

C5 

08 


CMP 

$08 


D4A2 

D0 

F3 


BNE 

$D497 


D4A4 

C9 

22 


CMP 

#$22 

' If ' 

D4A6 

F0 

01 


BEQ 

$D4A9 


D4A8 

18 



CLC 



D4A9 

84 

61 


STY 

$61 

Länge des Strings 

D4AB 

98 



TYA 


D4AC 

65 

6F 


ADC 

$6F 


D4AE 

85 

71 


STA 

$71 


D4B0 

A6 

70 


LDX 

$70 


D4B2 

90 

01 


BCC 

$D4B5 


D4B4 

E8 



I NX 



D4B5 

86 

72 


STX 

$72 

Endadresse high + 1 

D487 

A5 

70 


LDA 

$70 

Startadresse high 

D4B9 

F0 

04 


BEQ 

$D4BF 

null ? 

D4BB 

C9 

02 


CMP 

#$02 

zwei ? 

D4BD 

00 

0B 


BNE 

$D4CA 

nein 


80 



D4BF 

98 



TYA 



D4C0 

20 

75 

04 

J SR 

♦ 0475 

Stringdescriptor holen, Länge A, Adresse X/Y 

D4C3 

A6 

6F 


LDX 

♦ 6F 

D4C5 

A4 

70 


LDY 

♦ 70 

Startadresse holen 

D4C7 

20 

88 

D6 

JSR 

♦ D688 

String in Stringbereich kopieren 

D4CA 

A6 

16 


LDX 

♦ 16 

Stringdescriptor zeigen 

D4CC 

E0 

22 


CPX 

#♦22 

Stringstack voll ? 

D4CE 

00 

05 


BNE 

♦ D4D5 

nein 

D4D0 

A2 

19 


LDX 

#♦19 

Nummer für 'formula too complex' 

D4D2 

4C 

37 

C4 

JMP 

♦ C437 

Fehlermeldüng ausgeben 

D4D5 

A5 

61 


LOA 

♦ 61 


D4D7 

95 

00 


STA 

♦ 00,X 

Stringlänge 

D4D9 

A5 

62 


LOA 

♦ 62 


D4DB 

95 

01 


STA 

♦ 01 ,X 


D4DD 

A5 

63 


LOA 

♦ 63 

und Adresse in Stringstack bringen 

D4DF 

95 

02 


STA 

Vr 

es 

NJ 

D4E1 

A0 

00 


LDY 

#♦00 


D4E3 

86 

64 


STX 

♦ 64 


D4E5 

84 

65 


STY 

♦ 65 

Zeiger jetzt auf Descriptor 

D4E7 

84 

70 


STY 

♦ 70 

D4E9 

88 



DEY 



D4EA 

84 

0D 


STY 

♦ 0D 

Stringflag setzen $FF 

D4EC 

86 

17 


STX 

♦ 17 

Index des letzten Stringdescriptors 

D4EE 

E8 



I NX 


D4EF 

E8 



I NX 


um drei erhöhen 

D4F0 

E8 



INX 



D4F1 

86 

16 


STX 

♦ 16 

als neuen Index merken 

D4F3 

60 



RTS 



D4F4 

46 

0F 


LSR 

♦ 0F 

Flag für Garbage Collect rücksetzen 

D4F6 

48 



PHA 



D4F7 

49 

FF 


EOR 

#$FF 


D4F9 

38 



SEC 



D4FA 

65 

33 


ADC 

♦ 33 


D4FC 

A4 

34 


LDY 

♦ 34 


D4FE 

B0 

01 


BCS 

♦ D501 


D500 

88 



DEY 



D501 

C4 

32 


CPY 

♦ 32 


D503 

90 

11 


BCC 

♦ 0516 


D505 

00 

04 


BNE 

♦ D50B 


D507 

C5 

31 


CUP 

♦31 


D509 

90 

0B 


BCC 

♦ 0516 


D50B 

85 

33 


STA 

♦ 33 


D50D 

84 

34 


STY 

♦ 34 


D50F 

85 

35 


STA 

♦ 35 


D511 

84 

36 


STY 

♦ 36 


D513 

AA 



TAX 



D514 

68 



PLA 



051 5 

60 



RTS 



DSU 

A2 

10 


LDX 

#♦10 

Nummer für ’out of memory' 

D518 

A 5 

0F 


LDA 

♦0F 

Flag für Garbage Collect 

D51A 

30 

86 


BMI 

♦ 0402 

bereits durchgeführt, dann 'out of memory' 

D51C 

20 

26 

05 

JSR 

♦ D526 

Garbage Collection 

D51F 

A9 

80 


LDA 

#♦80 

Flag setzen 

0521 

85 

0F 


STA 

♦ 0F 


D523 

68 



PLA 



0524 

00 

D0 


BNE 

♦ D4F6 



***************************** Garbage Collect 
0526 A6 37 LDX $37 


81 



D52S 

A5 

38 

LOA 

$38 

D52A 

86 

33 

STX 

$33 

D52C 

85 

34 

STA 

$34 

D52E 

A0 

00 

LOY 

#$00 

D530 

84 

4F 

STY 

$4F 

D532 

84 

4E 

STY 

$4E 

D534 

A5 

31 

LOA 

$31 

0536 

A6 

32 

LDX 

$32 

D538 

85 

5F 

STA 

$5F 

D53A 

86 

60 

STX 

$60 

D53C 

A9 

19 

LOA 

#$19 

D53E 

A2 

00 

LDX 

#$00 

D540 

85 

22 

STA 

$22 

D542 

86 

23 

STX 

$23 

D544 

CS 

16 

CMP 

$16 

D546 

F0 

05 

BEQ 

$0540 

D548 

20 

C7 05 

J SR 

$D5C7 

D54B 

F0 

F7 

BEQ 

$0544 

D54D 

A9 

07 

LOA 

#$07 

D54F 

85 

53 

STA 

$53 

D551 

A5 

20 

LOA 

$2D 

D553 

A6 

2E 

LDX 

$2E 

0555 

85 

22 

STA 

$22 

D557 

86 

23 

STX 

$23 

D559 

E4 

30 

CPX 

$30 

D55B 

00 

04 

BNE 

$D561 

D55D 

C5 

2F 

CMP 

$2F 

D55F 

F0 

05 

BEQ 

$0566 

0561 

20 

BD 05 

JSR 

$D5BD 

0564 

F0 

F3 

BEQ 

$0559 

0566 

85 

58 

STA 

$58 

D568 

86 

59 

STX 

$59 

056A 

A9 

03 

LOA 

#$03 

D56C 

85 

53 

STA 

$53 

D56E 

A5 

58 

LOA 

$58 

0570 

A6 

59 

LDX 

$59 

0572 

E4 

32 

CPX 

$32 

0574 

D0 

07 

BNE 

$0570 

0576 

C5 

31 

CMP 

$31 

0578 

00 

03 

BNE 

$D57D 

D57A 

4C 

06 06 

JMP 

$0606 

0570 

85 

22 

STA 

$22 

D57F 

86 

23 

STX 

$23 

D581 

A0 

00 

LDY 

#$00 

0583 

Bl 

22 

LDA 

($22) ,Y 

D585 

AA 


TAX 


0586 

C8 


INY 


0587 

Bl 

22 

LDA 

($22),Y 

D589 

08 


PHP 


D58A 

C8 


INY 


D58B 

Bl 

22 

LDA 

($22),Y 

0580 

65 

58 

ADC 

$58 

D58F 

85 

58 

STA 

$58 

D591 

CS 


INY 


0592 

Bl 

22 

LDA 

(♦22),Y 

0594 

65 

59 

ADC 

$59 

0596 

85 

59 

STA 

$59 

0598 

28 


PLP 


0599 

10 

D3 

BPL 

$D56E 

D59B 

8A 


TXA 



82 



D59C 

38 

D0 

BMI 

$D56E 

D59E 

C8 


I NY 


D59F 

Bl 

22 

LDA 

($22),Y 

D5A1 

A0 

00 

LDY 

#$00 

D5A3 

0A 


ASL 


D5A4 

69 

05 

ADC 

#$05 

D5A6 

65 

22 

ADC 

$22 

D5A8 

85 

22 

STA 

$22 

D5AA 

90 

02 

BCC 

$D5AE 

D5AC 

E6 

23 

INC 

$23 

D5AE 

A6 

23 

LDX 

$23 

D5B0 

E4 

59 

CPX 

$59 

D5B2 

D8 

04 

BNE 

$D5B8 

D5B4 

C5 

58 

CMP 

$58 

D5B6 

F0 

BA 

BEG 

$D572 

D5B8 

20 

C7 D5 

JSR 

$D5C7 

D5BB 

F0 

F3 

BEQ 

$D5B0 

D5BD 

Bl 

22 

LDA 

($22),Y 

D5BF 

30 

35 

BMI 

$D5F6 

DSC 1 

C8 


I NY 


D5C2 

Bl 

22 

LDA 

($22) ,Y 

D5C4 

10 

30 

BPL 

$D5F6 

D5C6 

CS 


INY 


D5C7 

Bl 

22 

LDA 

($22),Y 

D5C9 

F0 

2B 

BEQ 

$D5F6 

D5CB 

C8 


INY 


D5CC 

Bl 

22 

LDA 

($22),Y 

D5CE 

AA 


TAX 


D5CF 

CB 


INY 


D5D0 

Bl 

22 

LDA 

($22) ,Y 

D5D2 

C5 

34 

CMP 

$34 

D5D4 

90 

06 

BCC 

$D5DC 

D5D6 

D0 

IE 

BNE 

$D5F6 

D5D8 

E4 

33 

CPX 

$33 

D5DA 

B0 

1A 

BCS 

$D5F6 

D5DC 

C5 

60 

CMP 

$60 

D5DE 

90 

16 

BCC 

$D5F6 

D5E0 

D0 

04 

BNE 

$D5E6 

D5E2 

E4 

5F 

CPX 

$5F 

D5E4 

90 

10 

BCC 

$D5F6 

D5E6 

86 

5F 

STX 

$5F 

D5E8 

85 

60 

STA 

$60 

D5EA 

A5 

22 

LDA 

$22 

D5EC 

A6 

23 

LDX 

$23 

D5EE 

85 

4E 

STA 

$4E 

D5F0 

86 

4F 

STX 

$4F 

D5F2 

A5 

53 

LDA 

$53 

D5F4 

85 

55 

STA 

$55 

D5F6 

A5 

53 

LDA 

$53 

D5F8 

18 


CLC 


D5F9 

65 

22 

ADC 

$22 

D5FB 

85 

22 

STA 

$22 

D5FD 

90 

02 

BCC 

$D601 

D5FF 

E6 

23 

INC 

$23 

D601 

A6 

23 

LDX 

$23 

D603 

A0 

00 

LDY 

#$00 

D605 

60 


RT5 


D606 

A5 

4F 

LDA 

$4F 

D608 

05 

4E 

ORA 

$4E 

D60A 

F0 

F5 

BEQ 

$D601 



D60C 

A5 

55 

LDA 

$55 


D60E 

29 

04 

AND 

#$04 


D610 

4A 


LSR 



D611 

AB 


TAY 



D612 

B5 

55 

STA 

$55 


D614 

Bl 

4E 

LDA 

($4E) , Y 


D616 

65 

5F 

ADC 

$5F 


DM8 

85 

5A 

STA 

$5A 


D61A 

A5 

60 

LDA 

$60 


D61C 

69 

00 

ADC 

#$00 


D61E 

85 

5B 

STA 

$5B 


D620 

A5 

33 

LDA 

$33 


D622 

A6 

34 

LDX 

$34 


D624 

85 

58 

STA 

$58 


0626 

86 

59 

STX 

$59 


D628 

20 

BF C3 

JSR 

$C3BF 


D62B 

A4 

55 

LDY 

$55 


D62D 

CB 


INY 



D62E 

A5 

58 

LDA 

$58 


D630 

91 

4E 

STA 

($4E) , Y 


D632 

AA 


TAX 



D633 

E6 

59 

INC 

$59 


D635 

A5 

59 

LDA 

$59 


D637 

C8 


INY 



D638 

91 

4E 

STA 

($4E),Y 


D63A 

4C 

2A D5 

JMP 

$D52A 


***************************** 

Stringverknüpfung + 

D63D 

A5 

65 

LDA 

$65 

D63F 

4B 


PHA 


Descriptor des ersten Strings merken 

D640 

A5 

64 

LDA 

$64 

D642 

48 


PHA 



D643 

20 

83 CE 

JSR 

$CE83 

Ausdruck holen 

D646 

20 

8F CD 

JSR 

$CD8F 

prüft auf Stringvariable 

D649 

68 


PLA 


D64A 

85 

6F 

STA 

$6F 


D64C 

68 


PLA 


Descriptor zurückholen 

D64D 

85 

70 

STA 

$70 

D64F 

A0 

00 

LDY 

#$00 


D651 

81 

6F 

LDA 

($6F) , Y 

Länge des ersten Strings 

D653 

18 


CLC 


D654 

71 

64 

ADC 

($64) ,Y 

plus Länge des zweiten Strings 

D656 

90 

05 

BCC 

$D65D 

kleiner als 256 ? 

D658 

A2 

17 

LDX 

#$17 

Nummer für 'string too lang' 

D65A 

4C 

37 C4 

JMP 

$C437 

Fehlermeldung ausgeben 

D65D 

20 

75 D4 

JSR 

$D475 

Platz für verknüpften String reservieren 

D660 

20 

7A D6 

JSR 

$D67A 

ersten String dorthin übertragen 

D663 

A5 

50 

LDA 

$50 

D665 

A4 

51 

LDY 

$51 

Zeiger auf zweiten Stringdescriptor 

D667 

20 

AA D6 

JSR 

$D6AA 

FRESTR 

D66A 

20 

8C D6 

JSR 

$D68C 

zweiten String an ersten anhängen 

D66D 

A5 

6F 

LDA 

$6F 

D66F 

A4 

70 

LDY 

$70 


D671 

20 

AA D6 

JSR 

$D6AA 

FRESTR 

D674 

20 

CA D4 

JSR 

$D4CA 

Descriptor in Stringstack 

D677 

4C 

B8 CD 

JMP 

$CDB8 

zurück zur Formelauswertung 

D67A 

A0 

00 

LDY 

#$00 


D67C 

Bl 

6F 

LDA 

($6F) , Y 

Stringlänge merken 

D67E 

48 


PHA 







84 



D67F 

CB 


INY 



D680 

Bl 

6F 

LDA 

($6F) ,Y 

Stringadresse low 

D682 

AA 


TAX 


D683 

C8 


INY 



D684 

Bl 

6F 

LDA 

($6F),Y 

Stringadresse high 

D686 

A8 


TAY 



D687 

68 


PLA 


Stringlänge 

D688 

86 

22 

STX 

$22 

D68A 

84 

23 

STY 

$23 

Zeiger auf String 

D68C 

AB 


TAY 



D68D 

F0 

0A 

BEG 

$D699 

Länge null, dann fertig 

D68F 

48 


PHA 



D690 

88 


DEY 



D691 

Bl 

22 

LDA 

($22) t Y 

String übertragen 

D693 

91 

35 

STA 

($35),Y 


D695 

98 


TYA 



D696 

D0 

F8 

BNE 

$D690 


D698 

68 


PLA 



D699 

18 


CLC 



D69A 

65 

35 

ADC 

$35 


D69C 

85 

35 

STA 

$35 

Zeiger plus Stringlänge 

D69E 

90 

02 

BCC 

$D6A2 


D6A0 

E6 

36 

INC 

$36 


D6A2 

60 


RTS 




***************************** Stringverwaltung FRESTR 
D6A3 20 8F CD JSR $CD8F prüft auf Stringvariable 

D6A6 A5 64 LDA $64 

D6A8 A4 65 LDY $65 Zeiger auf Stringdescriptor 

D6AA 85 22 STA $22 

D6AC 84 23 STY $23 

D6AE 20 DB D6 JSR $D6DB Descriptor vom Stringstack entfernen 

D6B1 08 PHP 

D6B2 A0 00 LDY #$00 

D6B4 Bl 22 LDA ($22),Y 

D6B6 48 PHA 

D6B7 C8 I NY 

D6B8 Bl 22 LDA ($22),Y 

D6BA AA TAX 

D6BB C8 INY 

D6BC Bl 22 LDA ($22),Y 

D6BE A8 TAY 

D6BF 68 PLA 

D6CB 28 PLP 

D6C1 D0 13 BNE $D6D6 String war nicht im Stringstack 

D6C3 C4 34 CPY $34 

D6C5 D0 0F BNE $D6D6 

D6C7 E4 33 CPX $33 

D6C9 D0 0B BNE $D6D6 

D6CB 48 PHA 

D6CC 18 CLC 

D6CD 65 33 ADC $33 

D6CF 85 33 STA $33 

D6D1 90 02 BCC $D6D5 

D6D3 E6 34 INC $34 

D6D5 68 PLA 

D6D6 86 22 STX $22 

D6D8 84 23 STY $23 

D6DA 60 RTS 

D6DB C4 18 CPY $18 


85 



D6DD 

D0 

0C 


BNE 

$D6EB 


D6DF 

C5 

17 


CMP 

$17 


D6E1 

D0 

08 


BNE 

$D6EB 


D6E3 

85 

16 


STA 

$16 


D6E5 

E9 

03 


SBC 

#$03 


D6E7 

85 

17 


STA 

$17 


D6E9 

A0 

00 


LDY 

#$00 


D6EB 

60 



RTS 



***************************** 

BASIC-Funktion CHR$ 

D6EC 

20 

Al 

D7 

JSR 

$D7A 1 

holt Byte-Wert 

D6EF 

8A 



TXA 


D6F0 

48 



PHA 



D6F1 

A9 

01 


LDA 

#$01 

Länge des Strings gleich eins 

D6F3 

20 

7D 

D4 

JSR 

ID47D 

Platz -für String reservieren 

D6F6 

68 



PLA 


ASCII-Kode zurückholen 

D6F7 

A0 

00 


LDY 

#$00 


D6F9 

91 

62 


STA 

($62) , Y 

als Stringzeichen speichern 

D6FB 

68 



PLA 


D6FC 

68 



PLA 



D6FD 

4C 

CA 

D4 

JHP 

$D4CA 

Stringdescriptor in Tabelle bringen 

****************************** 

Basic-Funktion LEFT$ 

D700 

20 

61 

D7 

JSR 

$D761 

Stringparamter von Stack holen 

D 70 3 

Dl 

50 


CMP 

($50) , Y 

Länge ntit LEFT$-Parameter vergleichen 

D705 

98 



TYA 


D706 

90 

04 


BCC 

$D70C 

L£FT$-Parameter kleiner als Länge ? 

D708 

Bl 

50 


LDA 

($50),Y 

Stringlänge 

D70A 

AA 



TAX 


D70B 

98 



TYA 



D70C 

48 



PHA 



D70D 

8A 



TXA 



D70E 

48 



PHA 



D70F 

20 

7D 

D4 

JSR 

$D47D 

Platz für neuen String reservieren 

D712 

A5 

50 


LDA 

$50 

D714 

A4 

51 


LDY 

$51 

Zeiger auf Descriptor 

D716 

20 

AA 

D6 

JSR 

$D6AA 

FRESTR 

D71 9 

68 



PLA 



D71A 

A8 



TAY 



D71B 

68 



PLA 



D71C 

18 



CLC 



D71D 

65 

22 


ADC 

$22 


D71F 

85 

22 


STA 

$22 


D721 

90 

02 


BCC 

$D725 


D723 

E6 

23 


INC 

$23 


D725 

98 



TYA 



D726 

20 

8C 

D6 

JSR 

$D68C 

neuen String in Stringbereich kopieren 

D729 

4C 

CA 

D4 

JMP 

$D4CA 

Decriptor in Stringstack bringen 

***************************** 

BASIC-Funktion RIGHT$ 

D72C 

20 

61 

D7 

JSR 

$D761 

Stringparameter vom Stack holen 

D72F 

18 



CLC 


D730 

Fl 

50 


SBC 

($50) , Y 

Nummer des ersten Elements im alten String 

D732 

49 

FF 


EOR 

#$FF 

D734 

4C 

06 

D7 

JMP 

$D706 

weiter wie LEFTS 

***************************** 

BASIC-Funktion MID$ 

D737 

A9 

FF 


LDA 

#$FF 


D739 

85 

65 


STA 

$65 


D73B 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 


86 



D73E 

C9 

29 


CMP 

#$29 

') ' Klammer zu 

D740 

F0 

06 


BEQ 

$D748 


D742 

20 

FD 

CE 

J SR 

ICEFD 

CHKCOM prüft auf Komma 

D745 

20 

9E 

D7 

JSR 

$D79E 

holt Byte-Wert 

D74B 

20 

61 

D7 

JSR 

$D761 

holt Stringadresse und 1. Parameter 

D748 

F0 

4B 


BEQ 

$D798 

1. Parameter null, dann 'illegal quantity' 

D74D 

CA 



DEX 



D74E 

8A 



TXA 



D74F 

48 



PHA 


Nummer des ersten Elements im alten String 

D750 

18 



CLC 



D751 

A2 

00 


LDX 

#$00 


D753 

Fl 

50 


SBC 

($30) t Y 

Länge des alten Strings 

D755 

B0 

B6 


BCS 

$D70D 

kleiner erster MID-Parameter ? 

D757 

49 

FF 


EOR 

#$FF 


D759 

C5 

65 


CMP 

$65 


D75B 

90 

Bl 


BCC 

$D70E 


D75D 

A5 

65 


LDA 

$65 


D75F 

B0 

AD 


BCS 

$D70E 

unbedingter Sprung 

D761 

20 

F7 

CE 

JSR 

$CEF7 

prüft auf Klammer zu 

D764 

68 



PLA 



D765 

AS 



TAY 



D766 

68 



PLA 



D767 

85 

55 


STA 

$55 


D769 

68 



PLA 



D76A 

68 



PLA 



D76B 

68 



PLA 



D76C 

AA 



TAX 



D76D 

68 



PLA 



D76E 

85 

50 


STA 

$50 


D770 

68 



PLA 



D771 

85 

51 


STA 

$51 


D773 

A5 

55 


LDA 

$55 


D775 

48 



PHA 



D776 

98 



TYA 



D777 

48 



PHA 



D778 

A0 

00 


LDY 

#$00 


D77A 

8A 



TXA 



D77B 

60 



RTS 



***************************** 

BASIC-Funktion LEN 

D77C 

20 

82 

D7 

JSR 

$D782 

FRESTR, Stringlänge holen 

D77F 

4C 

A2 

D3 

JMP 

$D3A2 

Byte-Wert nach Flieökomma wandeln 

***************************** 

Stringparameter holen 

D7B2 

20 

A3 

D6 

JSR 

$D6A3 

String holen, Länge in A 

D785 

A2 

00 


LDX 

#$00 


D787 

86 

0D 


ST X 

$0D 

Typflag auf numerisch 

D789 

A8 



TAY 



D78A 

60 



RTS 



***************************** 

BASIC-Funktion ASC 

D78B 

20 

82 

D7 

JSR 

$D782 

String holen Adresse nach $22/$23, Länge n. 

D78E 

F0 

08 


BEß 

$D798 

Länge gleich Null, 'illegal qunatity' 

D790 

A0 

00 


LDY 

#$00 


D792 

Bl 

22 


LDA 

($22) , Y 

erstes Zeichen holen 

D794 

A8 



TAY 


ASCII-Kode 

D795 

4C 

A2 

D3 

JMP 

$D3A2 

nach Fließkomma wandeln 

D798 

4C 

48 

D2 

JMP 

$D248 

gibt 'illegal quantity' 
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***************************** holt Byte-Wert (0-255) nach X 


D79B 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

D79E 

20 

8A 

CD 

JSR $CD8A 

FRMNUM numerischen Ausdruck holen 

D7A1 

20 

B8 

Dl 

JSR $D1B8 

prüft auf Bereich und wandelt nach Integer 

D7A4 

A6 

64 


LDX $64 

high Byte 

D7A6 

D0 

F0 


BNE $D798 

ungleich null, dann Wert zu groß 

D7A8 

A6 

65 


LDX $65 


D7AA 

4C 

79 

00 

JMP $0079 

CHRGOT letzes Zeichen holen 

***************************** 

BASIC-Funktion VAL 

D7AD 

20 

82 

D7 

JSR $D782 

Stringadresse und Länge holen 

D7B0 

D0 

03 


BNE $D7B5 

Länge ungleich Null ? 

D7B2 

4C 

F7 

D8 

JHP $D8F7 

Null in FAC 

D7B5 

A6 

7A 


LDX $7A 


D7B7 

A4 

7B 


LDY $7B 

Prograamzeiger retten 

D7B9 

86 

71 


STX $71 


D7BB 

84 

72 


STY $72 


D7BD 

A6 

22 


LDX $22 


D7BF 

86 

7A 


STX $7A 


D7C1 

18 



CLC 


D7C2 

65 

22 


ADC $22 


D7C4 

85 

24 


STA $24 


D7C6 

A6 

23 


LDX $23 


D7C8 

86 

7B 


STX $7B 


D7CA 

90 

01 


BCC $D7CD 


D7CC 

ES 



I NX 


D7CD 

86 

25 


STX $25 


D7CF 

A0 

00 


LDY #$00 


D7D1 

Bl 

24 


LDA ($24),Y 


D7D3 

48 



PHA 


D7D4 

98 



TYA 


D7D5 

91 

24 


STA ($24),Y 


D7D7 

20 

79 

00 

JSR $0079 

CHRGOT laufendes Zeichen holen 

D7DA 

20 

F3 

DC 

JSR $DCF3 

String in Fließkommazahl umwandeln 

D7DD 

68 



PLA 


D7DE 

A0 

00 


LDY #$00 


D7E0 

91 

24 


STA ($24),Y 


D7E2 

A6 

71 


LDX $71 


D7E4 

A4 

72 


LDY $72 


D7E6 

86 

7A 


STX $7A 

Programmzeiger zurückholen 

D7E8 

84 

7B 


STY $7B 


D7EA 

60 



RTS 


***************************** 

GETADR und GETBYT holt 16-Bit und 8-Bit Wert 

D7EB 

20 

8A 

CD 

JSR $CD8A 

FRMNUM holt numerischen Wert 

D7EE 

20 

F7 

D7 

JSR $D7F7 

FAC in Adressformat wandeln 

D7F1 

20 

FD 

CE 

JSR $CEFD 

CHKCGM prüft auf Komma 

D7F4 

40 

9E 

D7 

JMP $D79E 

holt Byte-Wert nach X 

***************************** 

FAC nach Adressformat umwandeln 

D7F7 

A5 

66 


LDA $66 

Vorzeichen 

D7F9 

30 

9D 


BMI $D798 

negativ, dann 'illegal quantity' 

D7FB 

A5 

61 


LDA $61 

Exponent 

D7FD 

C9 

91 


CMP #$91 

Zahl mit 65536 vergleichen 

D7FF 

B0 

97 


BCS $D798 

größer oder gleich, 'illegal quantity' 

D801 

20 

9B 

DC 

JSR $DC9B 

in Adressformat wandeln 

D804 

A5 

64 


LDA $64 


D806 

A4 

65 


LDY $65 

Wert nach 

DB08 

84 

14 


STY $14 

$ 14/$15 speichern 

D80A 

85 

15 


STA $15 
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D80C 60 


RTS 


fr**************************** BASIC-Funktion PEEK 


D80D 

A5 

15 


LDA $15 


D80F 

48 



PHA 

Adresse in $14/$15 sichern 

D810 

A5 

14 


LDA $14 


D812 

48 



PHA 


D81 3 

20 

F7 

D7 

JSR $D7F7 

FAC in Adressformat wandeln 

D816 

A0 

00 


LDY #$00 


D818 

Bl 

14 


LDA ($14),Y 

Peek-Wert holen 

D81A 

A8 



TAY 


D81B 

68 



PLA 


D81C 

85 

14 


STA $14 


DB1E 

68 



PLA 

Adresse zurückholen 

D81F 

85 

15 


STA $15 


D821 

4C 

A2 

D3 

JMP $D3A2 

Y in Fließkommaformat wandeln 


***************************** BASIC-Befehl PQKE 
D824 20 EB D7 JSR $D7EB Poke-Adresse und Wert holen 

D827 8A TXA Wert in Akku 

D828 A0 00 LDY #$0B 

D82A 91 14 STA ($14),Y und speichern 

D82C 60 RTS 

***************************** 

D82D 20 EB D7 JSR $D7EB 

D830 86 49 STX $49 

D832 A2 00 LDX #$00 

D834 20 79 00 JSR $0079 

D837 F0 03 BEß $D83C 

D839 20 Fi D7 JSR ID7F1 

D83C 86 4A STX $4A 

D83E A0 00 LDY #$00 

D840 Bl 14 LDA ($14) ,Y 

D842 45 4A EOR $4A 

D844 25 49 AND $49 

D846 F0 F8 BEQ $DB40 

D848 60 RTS 

***************************** FAC = FAC +0.5 
D849 A9 11 ' LDA #$11 

D84B A0 DF LDY #$DF Zeiger auf Konstante 0.5 

D84D 4C 67 D8 JMP $D867 FAC = FAC + Konstante (A/Y) 

***************************** Minus FAC = Konstante (A/Y) - FAC 
D850 20 8C DA JSR $DA8C Konstante (A/Y) nach ARG 

***************************** Minus FAC - ARG - FAC 
D853 A5 66 LDA $66 

D855 49 FF EOR #$FF Vorzeichen umdrehen 

D857 85 66 STA $66 

D859 45 6E EOR $6E 

D85B 85 6F STA $6F 

D85D A5 61 LDA $61 

D85F 4C 6A D8 JMP $D86A FAC = FAC + ARG 

***************************** 

D862 20 99 D9 JSR $D999 Exponenten von FAC und ARG angleichen 

D865 90 3C BCC $D8A3 


BASIC-Befehl WAIT 
Adresse und Wert holen 

Default für dritten Parameter 
CHRGOT laufendes Zeichen holen 
kein dritter Parameter ? 
prüft auf Komma und holt Parameter 


Wait-Adr esse 

logisch verknüpfen 
weiter warten 
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***************************** 


D867 

20 

BC 

DA 

JSR 

$DA8C 

*******#*#***#**#***#*******# 

D86A 

D0 

03 


BNE 

$D86F 

DB6C 

4C 

FC 

DB 

JHP 

$DBFC 

D86F 

A6 

70 


LDX 

$70 

D871 

86 

56 


STX 

$56 

D873 

A2 

69 


LDX 

#$69 

D875 

A5 

69 


LDA 

$69 

D877 

A8 



TAY 


D878 

F0 

CE 


BEQ 

$D848 

D87A 

38 



SEC 


D87B 

E5 

61 


SBC 

$61 

D87D 

F0 

24 


BEQ 

$D8A3 

D87F 

90 

12 


BCC 

$D893 

D881 

84 

61 


STY 

$61 

D883 

A4 

6E 


LDY 

$6E 

D8S5 

84 

66 


STY 

$66 

D887 

49 

FF 


EOR 

#$FF 

D889 

69 

00 


ADC 

#$00 

D88B 

A0 

00 


LDY 

#$00 

D88D 

84 

56 


STY 

$56 

D88F 

A2 

61 


LDX 

#$61 

D891 

D0 

04 


BNE 

$D897 

D893 

A0 

00 


LDY 

#$00 

D895 

84 

70 


STY 

$70 

D897 

C9 

F9 


CMP 

#$F9 

D899 

30 

C7 


BMI 

$D862 

D89B 

AB 



TAY 


D89C 

A5 

70 


LDA 

$70 

D89E 

56 

01 


LSR 

$01 ,X 

D8A0 

20 

B0 

D9 

JSR 

$D9B0 

D8A3 

24 

6F 


BIT 

$6F 

D8A5 

10 

57 


BPL 

$D8FE 

D8A7 

A0 

61 


LDY 

#$61 

D8A9 

E0 

69 


CPX 

#$69 

D8AB 

F0 

02 


BEQ 

$D8AF 

D8AD 

A0 

69 


LDY 

#$69 

D8AF 

38 



SEC 


D8B0 

49 

FF 


EOR 

#$FF 

D8B2 

65 

56 


ADQ. 

$56 

D8B4 

85 

70 


STA 

$70 

D8B6 

B9 

04 

00 

LDA 

$0004,Y 

D8B9 

F5 

04 


SBC 

$04,X 

D8BB 

85 

65 


STA 

$65 

D8BD 

B9 

03 

00 

LDA 

$0003,Y 

DSC0 

F5 

03 


SBC 

$03,X 

D8C2 

85 

64 


STA 

$64 

D8C4 

B9 

02 

00 

LDA 

$0002,Y 

DBC7 

F5 

02 


SBC 

$02,X 

D8C9 

85 

63 


STA 

$63 

D8CB 

B9 

01 

00 

LDA 

$0001 , Y 

D8CE 

F5 

01 

* 

SBC 

$01,X 

D8D0 

85 

62 


STA 

$62 

DBD2 

B0 

03 


BCS 

$D8D7 

D8D4 

20 

47 

D9 

JSR 

$D947 

D8D7 

AB 

00 


LDY 

#$00 

D8D9 

98 



TYA 


D8DA 

18 



CLC 



Plus FAC = Konstante (A/Y) + FAC 
Konstante (A/Y) nach ARG 

Plus FAC ^ ARG + FAC 
FAC ungleich Null ? 
nein, dann FAC = ARG 
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D8DB 

A6 

62 

LDX 

$62 

D8DD 

D0 

4A 

BNE 

$D929 

D8DF 

A6 

63 

LDX 

$63 

D8E1 

86 

62 

STX 

$62 

D8E3 

A6 

64 

LDX 

$64 

D8E5 

86 

63 

STX 

$63 

D8E7 

A6 

65 

LDX 

$65 

D8E9 

86 

64 

STX 

$64 

D8EB 

A6 

70 

LDX 

$70 

D8ED 

86 

65 

STX 

$65 

D8EF 

84 

70 

STY 

$70 

DBF 1 

69 

08 

ADC 

*$08 

D8F3 

C9 

20 

CMP 

#$20 

D8F5 

D0 

E4 

BNE 

$D8DB 

D8F7 

A9 

00 

LDA 

*$00 

D8F9 

85 

61 

STA 

$61 

D8FB 

85 

66 

STA 

$66 

D8FD 

60 


RTS 


D8FE 

65 

56 

ADC 

$56 

D900 

85 

70 

STA 

$70 

D902 

A5 

65 

LDA 

$65 

D904 

65 

6D 

ADC 

$6D 

D906 

85 

65 

STA 

$65 

D9B8 

A5 

64 

LDA 

$64 

D90A 

65 

6C 

ADC 

$6C 

D90C 

85 

64 

STA 

$64 

D90E 

A5 

63 

LDA 

$63 

D910 

65 

6B 

ADC 

$6B 

D912 

85 

63 

STA 

$63 

D914 

A5 

62 

LDA 

$62 

D916 

65 

6A 

ADC 

$6A 

D918 

85 

62 

STA 

$62 

D91A 

4C 

36 D9 

JMP 

$D936 

D91D 

69 

01 

ADC 

#$01 

D91F 

06 

70 

ASL 

$70 

D921 

26 

65 

RÜL 

$65 

D923 

26 

64 

ROL 

$64 

D925 

26 

63 

ROL 

$63 

D927 

26 

62 

ROL 

$62 

D929 

10 

F2 

BPL 

$D91 D 

D92B 

38 


SEC 


D92C 

E5 

61 

SBC 

$61 

D92E 

B0 

C7 

BCS 

$D8F7 

D930 

49 

FF 

EOR 

#$FF 

D932 

69 

01 

ADC 

#$01 

D934 

85 

61 

STA 

$61 

D936 

90 

0£ 

BCC 

$D946 

D938 

E6 

61 

INC 

$61 

D93A 

F0 

42 

BEQ 

$D97E 

D93C 

66 

62 

RQR 

$62 

D93E 

66 

63 

ROR 

$63 

D940 

66 

64 

ROR 

$64 

D942 

66 

65 

RQR 

$65 

D944 

66 

70 

RQR 

$70 

D946 

60 


RTS 



***************************** Mantisse von FAC invertieren 
D947 A5 66 LDA $66 

D949 49 FF EÖR #$FF 

D94B 85 66 STA $66 
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D94D 

A5 

62 

LDA 

$62 

D94F 

49 

FF 

EOR 

#$FF 

D951 

85 

62 

STA 

$62 

D953 

A5 

63 

LDA 

$63 

D955 

49 

FF 

EOR 

#$FF 

D957 

85 

63 

STA 

$63 

D959 

A5 

64 

LDA 

$64 

D95B 

49 

FF 

EOR 

#$FF 

D95D 

85 

64 

STA 

$64 

D95F 

A5 

65 

LDA 

$65 

D961 

49 

FF 

EOR 

#$FF 

D963 

85 

65 

STA 

$65 

D965 

A5 

70 

LDA 

$70 

D967 

49 

FF 

EOR 

#$FF 

D969 

85 

70 

STA 

$70 

D96B 

E6 

70 

INC 

$70 

D96D 

D0 

0E 

BNE 

$D97D 

D96F 

E6 

65 

INC 

$65 

D971 

D0 

0A 

BNE 

$D97D 

D973 

E6 

64 

INC 

$64 

D975 

D0 

06 

BNE 

$D97D 

D977 

E6 

63 

INC 

$63 

D979 

D0 

02 

BNE 

$D97D 

D97B 

E6 

62 

INC 

$62 

D97D 

60 


RTS 


D97E 

A2 

0F 

LDX 

#$0F 

D980 

4C 

37 C4 

JMP 

$C437 

***************************** 

D983 

A2 

25 

LDX 

#$25 

D985 

B4 

04 

LDY 

$04 

D987 

84 

70 

STY 

$70 

D989 

B4 

03 

LDY 

$03 

D98B 

94 

04 

STY 

$04 

D98D 

B4 

02 

LDY 

$02 

D98F 

94 

03 

STY 

$03 

D991 

B4 

01 

LDY 

$01 

D993 

94 

02 

STY 

$02 

D995 

A4 

68 

LDY 

$68 

D997 

94 

01 

STY 

$01 

D999 

69 

08 

ADC 

#$08 

D99B 

30 

E8 

BMI 

$D9B5 

D99D 

F0 

E6 

BEQ 

$D985 

D99F 

E9 

08 

SBC 

#$08 

D9A1 

A8 


TAY 


D9A2 

A5 

70 

LDA 

$70 

D9A4 

BQ 

14 

BCS 

$D9BA 

D9A6 

16 

01 

ASL 

$01 ,X 

D9AB 

90 

02 

BCC 

$D9AC 

D9AA 

F6 

01 

INC 

$01,X 

D9AC 

76 

01 

ROR 

$01,X 

D9AE 

76 

01 

ROR 

$01 ,X 

D9B0 

76 

02 

ROR 

$02,X 

D9B2 

76 

03 

ROR 

$03,X 

D9B4 

76 

04 

ROR 

$04,X 

D9B6 

6 A 


ROR 


D9B7 

C8 


INY 


D9B8 

D0 

EC 

BNE 

$D9A6 

D9BA 

18 


CLC 


D9BB 

60 


RTS 



Nummer für 'overflow' 
Fehlermeldung ausgeben 

Rechtsverschieben eines Registers 
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****************************** Konstanten für LOG 


D9BC 

81 

00 

00 

00 00 


1 

D9C1 

03 





3 = Polynomgrad, dann 4 Koeffizienten 

D9C2 

7F 

5E 

56 

CB 79 


.434255942 

D9C7 

80 

13 

9B 

0B 64 


.576584541 

D9CC 

80 

76 

38 

93 16 


.961800759 

D9D1 

82 

38 

AA 

3B 20 


2.88539007 

D9D6 

80 

35 

04 

F3 34 


.707106781 * 1/SQR(2) 

D9DB 

81 

35 

04 

F3 34 


1.41421356 ” SQR(2) 

D9E0 

80 

80 

00 

00 00 


-. 5 

D9E5 

80 

31 

72 

17 F8 


.693147181 = LOG(2) 

***************************** 

BASIC-Funktion LOG 

D9EA 

20 

2B 

DC 

JSR 

$DC2B 

Vorzeichen von FAC holen 

D9ED 

F0 

02 


BEQ 

$D9Fi 

null, dann fertig 

D9EF 

10 

03 


BPL 

$D9F4 

positiv, ok 

D9F1 

4C 

48 

D2 

JMP 

ID248 

negativ, 'illegal qunatity' 

D9F4 

A5 

61 


LDA 

$61 

Exponent 

D9F6 

E9 

7F 


SBC 

#$7F 

normalisieren 

D9F8 

48 



PHA 


und merken 

D9F9 

A9 

80 


LDA 

#$80 

Zahl in Bereich 0.5 bis 1 bringen 

D9FB 

85 

61 


STA 

$61 


D9FD 

A9 

D6 


LDA 

#$D6 


D9FF 

A0 

D9 


LDY 

#$D9 

Zeiger auf Konstante 1 /SQR(2) 

DAß 1 

20 

67 

D8 

JSR 

$D867 

zu FAC addieren 

DA04 

A9 

DB 


LDA 

#$DB 


DA06 

Aß 

D9 


LDY 

#$D9 

Zeiger auf Konstante SQR(2) 

DA08 

20 

0F 

DB 

JSR 

$DB0F 

durch FAC dividieren 

DA0B 

A9 

BC 


LDA 

#$BC 


DA0D 

A0 

D9 


LDY 

#$D9 

Zeiger auf Konstante 1 

DA0F 

20 

50 

D8 

JSR 

$D850 

1 minus FAC 

DA 12 

A9 

CI 


LDA 

#$C1 


DA 1 4 

A0 

D9 


LDY 

#$D9 

Zeiger auf Polynomkoeffizienten 

DA 16 

20 

40 

E0 

JSR 

$E040 

Polynomberechnung 

DA 1 9 

A9 

E0 


LDA 

#$E0 


DA 1 B 

A0 

D9 


LDY 

#$D9 

Zeiger auf Konstante -0.5 

DA1D 

20 

67 

D8 

JSR 

$D867 

zu FAC addieren 

DA20 

68 



PLA 


Exponent zurückholen 

DA21 

20 

7E 

DD 

JSR 

$DD7E 

FAC = FAC + FAC 

DA24 

A9 

E5 


LDA 

#$E5 


DA26 

A0 

D9 


LDY 

#$D9 

Zeiger auf Konstante LGG(2) 

***************************** 

Multiplikation FAC = Konstante (A/Y) 

DA28 

20 

8C 

DA 

JSR 

$DA8C 

Konstante (A/Y) nach FAC holen 

***************************** 

Multiplikation FAC = ARG * FAC 

DA2B 

D0 

03 


BNE 

$DA30 

nicht null ? 

DA2D 

4C 

8B 

DA 

JMP 

$DA8B 

gibt RTS 

DA30 

20 

B7 

DA 

JSR 

$DAB7 

Exponent berechnen 

DA33 

A9 

00 


LDA 

#$00 


DA35 

85 

26 


STA 

$26 


DA37 

85 

27 


STA 

$27 


DA39 

85 

28 


STA 

$28 

Funktionsregister löschen 

DA3B 

85 

29 


STA 

$29 


DA3D 

A5 

70 


LDA 

$70 


DA3F 

20 

59 

DA 

JSR 

$DA59 

bitweise Multiplikation 

DA42 

A5 

65 


LDA 

$65 


DA44 

20 

59 

DA 

JSR 

$DA59 

bitweise Multiplikation 

DA47 

A5 

64 


LDA 

$64 


DA49 

20 

59 

DA 

JSR 

$DA59 

bitweise Multiplikation 
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DA4C 

A5 

63 


LDA 

$63 

DA4E 

20 

59 

DA 

JSR 

$DA59 

DAS1 

A5 

62 


LDA 

$62 

DA53 

20 

5E 

DA 

JSR 

$DA5E 

DA56 

4C 

8F 

DB 

JMP 

u. 

GO 

CQ 

ca 

4* 

fr***************************. 

DA59 

D0 

03 


BNE 

$DA5E 

DA5B 

4C 

83 

D9 

JMP 

$D983 

DA5E 

4A 



LSR 


DA5F 

09 

80 


ORA 

*$80 

DA61 

A8 



TAY 


DA62 

90 

19 


BCC 

$DA7D 

DA64 

18 



CLO 


DA65 

A5 

29 


LDA 

$29 

DA67 

65 

6D 


ADO 

$6D 

DA69 

85 

29 


STA 

$29 

DA6B 

A5 

28 


LDA 

$28 

DA6D 

65 

60 


ADC 

$6C 

DA6F 

85 

28 


STA 

$28 

DA71 

A5 

27 


LDA 

$27 

DA73 

65 

6B 


ADC 

$6B 

DA75 

85 

27 


STA 

$27 

DA77 

A5 

26 


LDA 

$26 

DA79 

65 

6A 


ADC 

$6A 

DA7B 

85 

26 


STA 

$26 

DA7D 

66 

26 


ROR 

$26 

DA7F 

66 

27 


ROR 

$27 

DA81 

66 

28 


ROR 

$28 

DA83 

66 

29 


ROR 

$29 

DA85 

66 

70 


ROR 

$70 

DA87 

98 



TYA 


DAS8 

4A 



LSR 


DA89 

D0 

D6 


BNE 

$DA61 

DA8B 

60 



RTS 



***************************** 


DA8C 

85 

22 

STA 

$22 

DABE 

84 

23 

STY 

$23 

DA90 

A0 

04 

LDY 

#$04 

DA92 

Bl 

22 

LDA 

($22),Y 

DA94 

85 

6D 

STA 

$6D 

DA96 

88 


DEY 


DA97 

Bl 

22 

LDA 

($22),Y 

DA99 

85 

6C 

STA 

$6C 

DA9B 

88 


DEY 


DA9C 

Bl 

22 

LDA 

($22) , Y 

DA9E 

85 

6B 

STA 

$6B 

DAA0 

88 

22 

DEY 


DAA1 

Bl 

LDA 

($22),Y 

DAA3 

85 

6E 

STA 

$6E 

DAA5 

45 

66 

EOR 

$66 

DAA7 

85 

6F 

STA 

$6F 

DAA9 

A5 

6E 

LDA 

$6E 

DAAB 

09 

80 

ORA 

#$80 

DAAD 

85 

6A 

STA 

$6A 

DAAF 

88 


DEY 


DABO 

Bl 

22 

LDA 

($22),Y 

DAB2 

85 

69 

STA 

$69 

DAB4 

A5 

61 

LDA 

$61 


bitweise Multiplikation 

bitweise Multiplikation 
Register nach FAC 

bitweise Multiplikation 

rechtsverschieben eines Registers 


ARG = Konstante (A/Y) 
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DAB6 60 RTS 

DAB7 A5 69 LDA $69 

DAB9 F0 1F BES $DADA 

DABB 18 CLC 

DABC 65 61 ADC $61 

DABE 90 04 BCC $DAC4 

DAC0 30 ID BMI $DADF 

DAC2 18 CLC 

DAC3 2C .BYTE $2C 

DAC4 10 14 BPL $DADA 

DAC6 69 80 ADC #$80 

DAC8 85 61 STA $61 

DACA 00 03 BNE $DACF 

DACC 4C FB D8 JMP $D8FB FAC = 0 

DACF A5 6F LDA $6F 

DAD1 85 66 STA $66 

DAD3 60 RTS 

DAD4 A5 66 LDA $66 

DAD6 49 FF EOR #$FF 

DAD8 30 05 BMI $DADF 

DADA 68 PLA 

DADB 68 PLA 

DADC 4C F7 D8 JMP $D8F7 FAC = 0 

DADF 4C 7E D9 JMP $D97E gibt 'overflow' 

***************************** pa c = FAC * 10 

DAE2 20 0C DC JSR $DC0C FAC runden und nach ARG 

DAE5 AA TAX 

DAE6 F0 10 BES $DAF8 FAC = 0, dann Fertig 

DAE8 18 CLC 

DAE9 69 02 ADC #$02 Exponent plus 2 entspricht mal 4 

DAEß B0 F2 BCS $DADF Überlauf ? 

DAED A2 00 LDX #$00 

DAEF 86 6F STX $6F 

DAF1 20 77 D8 JSR $D877 FAC * FAC + ARG entspricht mal 5 

DAF4 E6 61 INC $61 Exponent erhöhen, entspricht mal 10 

DAF6 F0 E7 BES $DADF Überlauf, dann 'overflow' 

DAF8 60 RTS 

***************************** 

DAF9 84 20 00 00 00 Fließkommakonstante 10 

***************************** pac = FAC / 10 

DAFE 20 0C DC JSR $DC0C FAC runden und nach ARG 

DB01 A9 F9 LDA #$F9 

DB03 AB DA LDY #$DA Zeiger auf Konstante 10 

DB05 A2 00 LDX #$00 

DB07 86 6F STX $6F 

DB09 20 A2 DB JSR $DBA2 Konstante 10 nach FAC 

DB0C 4C 12 DB JMP $DB12 FAC = ARG / FAC 

***************************** pac = Konstante (A/Y) / FAC 
DBBF 20 8C DA JSR $DA8C Konstante (A/Y) nach ARG 

***************************** Division FAC = ARG / FAC 
DB12 F0 76 BEQ $DB8A FAC = 0, 'division by zero' 
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DB 1 4 

20 

1B DC 

JSR 

$DC1B 

DB17 

A9 

00 

LDA 

#$00 

DB 19 

38 


SEC 


DB 1A 

E5 

61 

SBC 

$61 

DB 1 C 

85 

61 

STA 

$61 

DB1E 

20 

B7 DA 

JSR 

$DAB7 

DB21 

E6 

61 

INC 

$61 

DB23 

F0 

BA 

BEQ 

$DADF 

DB25 

A2 

FC 

LDX 

#$FC 

DB27 

A9 

01 

LDA 

#$01 

DB29 

A4 

6 A 

LDY 

$6A 

DB2B 

C4 

62 

CP Y 

$62 

DB2D 

D0 

10 

BNE 

$DB3F 

DB2F 

A4 

6B 

LDY 

$6B 

DB31 

C4 

63 

CPY 

$63 

DB33 

D0 

0 A 

BNE 

$DB3F 

DB35 

A4 

6C 

LDY 

$6C 

DB37 

C4 

64 

CPY 

$64 

DB39 

D0 

04 

BNE 

$DB3F 

DB3B 

A4 

6D 

LDY 

$6D 

DB3D 

C4 

65 

CPY 

$65 

DB3F 

08 


PHP 


DB40 

2A 


ROL 


DB4 1 

90 

09 

BCC 

IDB4C 

DB43 

E8 


INX 


DB44 

95 

29 

STA 

$29,X 

DB46 

F0 

32 

BEQ 

IDB7A 

DB48 

10 

34 

BPL 

JDB7E 

DB4A 

A9 

01 

LDA 

#$01 

DB4C 

28 


PLP 


DB4D 

B0 

0E 

BCS 

$DB5D 

DB4F 

06 

6D 

ASL 

$6D 

DBS 1 

26 

6C 

ROL 

$6C 

DB53 

26 

6B 

ROL 

$6B 

DB55 

26 

6A 

ROL 

$6A 

DB57 

B0 

E6 

BCS 

$DB3F 

DB59 

30 

CE 

BMI 

$DB29 

DB5B 

10 

E2 

BPL 

$DB3F 

DB5D 

A8 


TAY 


DB5E 

A5 

6D 

LDA 

$6D 

DB60 

E5 

65 

SBC 

$65 

DB62 

85 

6D 

STA 

$6D 

DB64 

A5 

6C 

LDA 

$6C 

DB66 

E5 

64 

SBC 

$64 

DB6B 

85 

6C 

STA 

$6C 

DB6A 

A5 

6B 

LDA 

$6B 

DB6C 

E5 

63 

SBC 

$63 

DB6E 

85 

6B 

STA 

$6B 

DB70 

A5 

6 A 

LDA 

$6A 

DB72 

E5 

62 

SBC 

$62 

DB74 

85 

6A 

STA 

$6A 

DB76 

98 


TYA 


DB7 7 

4C 

4F DB 

JMP 

$ D B 4 F 

DB7A 

A9 

40 

LDA 

#$40 

DB7C 

D0 

CE 

BNE 

$DB4C 

DB7E 

0A 


ASL 


DB7F 

0A 


ASL 


DB80 

0 A 


ASL 


DBB 1 

0A 


ASL 


DBB2 

0A 


ASL 



FAC runden 


Exponent des Ergebnisses bestimmen 

Exponentenüberlaut, 'overflow' 
Zeiger aut Funktionsregister 


ARG mit FAC byteweise vergleichen 


Akku = Akku * 64 
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Hi 1fsregister nach FAC 


DB83 

0A 


ASL 


DB84 

85 

70 

STA 

170 

DBB 6 

28 


F’LF 


DBB7 

4C 

SF DB 

JMP 

$DB8F 

DB8A 

A2 

14 

LDX 

#$14 

DBSC 

4C 

37 C4 

JMP 

$C437 

***************************** 

DB8F 

A5 

26 

LDA 

$26 

DB9 i 

85 

62 

STA 

$62 

DB93 

A5 

27 

LDA 

$27 

DB95 

85 

63 

STA 

$63 

DB97 

A5 

28 

LDA 

$28 

DB99 

85 

64 

STA 

$64 

DB9B 

A5 

29 

LDA 

$29 

DB9D 

85 

65 

STA 

$65 

DB9F 

4C 

D7 D8 

JMP 

$D8D7 

***************************** 

D8A2 

85 

22 

STA 

$22 

DBA4 

84 

23 

STY 

$23 

DBA6 

Aß 

04 

LDY 

#$04 

DBA8 

Bl 

22 

LDA 

($22) ,Y 

DBAA 

85 

65 

STA 

$65 

DBAC 

88 


DEY 


DBAD 

Bl 

22 

LDA 

($22) , Y 

DBAF 

85 

64 

STA 

$64 

DBB1 

88 


DEY 


DBB2 

Bl 

22 

LDA 

($22),Y 

DBB4 

85 

63 

STA 

$63 

DBB6 

88 


DEY 


DBB7 

Bl 

22 

LDA 

($22),Y 

DBB9 

85 

66 

STA 

$66 

DBBB 

09 

80 

ORA 

#$80 

DBBD 

85 

62 

STA 

$62 

DBBF 

88 


DEY 


DBC0 

Bl 

22 

LDA 

($22),Y 

DBC2 

85 

61 

STA 

$61 

DBC4 

84 

70 

STY 

$70 

DBC6 

60 


RTS 


***************************** 

DBC7 

A2 

5C 

LDX 

#$5C 

DBC9 

2C 


■BYTE $2C 

***************************** 

DBCA 

A2 

57 

LDX 

#$57 

DBCC 

Aß 

00 

LDY 

#$00 

DBCE 

F0 

04 

BEQ 

$DBD4 

***************************** 

DBD0 

A6 

49 

LDX 

$49 

DBD2 

A4 

4 A 

LDY 

$4A 

DBD4 

20 

1B DC 

JSR 

$DC 1 B 

DBD7 

86 

22 

STX 

$22 

DBD9 

84 

23 

STY 

$23 

DBDB 

A0 

04 

LDY 

#$04 

DBDD 

A5 

65 

LDA 

$65 

DBDF 

91 

22 

STA 

($22),Y 


Nummer für 'diVision by zero' 
Fehlermeldung ausgeben 

Hilfsregister ($26-$29) nach FAC 


FAC linksbündig machen 

Konstante (A/Y) nach FAC übertragen 

Zeiger setzen 


FAC nach Variable übertragen 


Variablenadresse 
FAC runden 

Zeiger auf Zieladresse 


Mantisse 


Vorzeichen Mantisse 


Exponent 


FAC nach Akku#4 übertragen 
Adresse low Akku#4 


FAC nach Akku#3 übertragen 
Adresse low Akku#3 
Adresse high 
unbedingter Sprung 
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D8E1 

88 



DEY 



DBE2 

A5 

64 


LDA 

$64 

Mantisse 

DBE4 

91 

22 


STA 

($22 ),Y 


DBE6 

88 



DEY 



DBE7 

A5 

63 


LDA 

$63 


DBE9 

91 

22 


STA 

($22) , Y 


DBEB 

88 



DEY 



DBEC 

A5 

66 


LDA 

$66 


DBEE 

09 

7F 


ORA 

#$7F 

Vorzeichen auf Spei eher{ormat bringen 

DBF0 

25 

62 


AND 

$62 


DBF2 

91 

22 


STA 

($22) ,Y 


DBF4 

88 



DEY 



DBF5 

A5 

61 


LDA 

$61 

Exponent 

DBF7 

91 

22 


STA 

($22),Y 


DBF9 

84 

70 


STY 

$70 


DBFB 

60 



RTS 



***#****####**##*****#*#****# 

ARS nach FAC übertragen 

DBFC 

A5 

6E 


LDA 

$6E 


DBFE 

85 

66 


STA 

$66 


DC00 

A2 

05 


LDX 

#$05 

5 Bytes 

DC02 

B5 

68 


LDA 

$68, X 


DC04 

95 

60 


STA 

$60,X 


DC06 

CA 



DEX 



DC07 

D0 

F9 


BNE 

$DC02 


DC09 

86 

70 


STX 

$70 


DC0B 

60 



RTS 



***#*****######*****#**#****# 

FAC nach ARG übertragen 

DC0C 

20 

1B 

DC 

JSR 

$DC 1B 

FAC runden 

DC0F 

A2 

06 


LDX 

#$06 


DC11 

B5 

60 


LDA 

$60,X 


DC13 

95 

68 


STA 

$68,X 


DC15 

CA 



DEX 



DC 16 

D0 

F9 


BNE 

$DC11 


DC 18 

86 

70 


STX 

$70 


DClft 

60 



RTS 



ft*##**#********###*****#**#** 

FAC runden 

DC 1B 

A5 

61 


LDA 

$61 

Exponent 

DC 1D 

F0 

FB 


BEQ 

$DC1A 

nul1, dann f ertig 

DC1F 

06 

70 


ASL 

$70 


DC21 

90 

F7 


BCC 

$DC 1A 

Rundungsstelle größer $7F ? 

DC23 

20 

6F 

D9 

JSR 

$D96F 

Mantisse um eins erhöhen 

DC26 

D0 

F2 


BNE 

IDC1A 

jetzt null ? 

DC28 

4C 

38 

D9 

JMP 

$D938 

nach rechts verschieben, Exponent erhöhen 

***************************** 

Vorzeichen von FAC holen 

DC2B 

A5 

61 


LDA 

$61 

Exponent null ? 

DC2D 

F0 

09 


BEQ 

$DC38 

ja 

DC2F 

A5 

66 


LDA 

$66 


DC31 

2A 



ROL 



DC32 

A9 

FF 


LDA 

#$FF 

negativ 

DC34 

B0 

02 


BCS 

$DC38 


DC36 

A9 

01 


LDA 

#$01 

positiv 

DC38 

60 



RTS 



ft#*########*###*###*###*####* 

BASIC-Funktion SGN 

DC39 

20 

2B 

DC 

JSR 

IDC2B 

Vorzeichen von FAC holen 

DC3C 

85 

62 


STA 

$62 



98 



DC3E 

A9 

00 

LDA 

#$00 


DC40 

85 

63 

STA 

$63 


DC42 

A2 

88 

LDX 

#$88 


DC44 

A5 

62 

LDA 

$62 


DC46 

49 

FF 

EOR 

#$FF 


DC48 

2A 


ROL 



DC49 

A9 

00 

LDA 

#$00 


DC4B 

85 

65 

STA 

$65 


DC4D 

85 

64 

STA 

$64 


DC4F 

86 

61 

STX 

$61 


DC51 

85 

70 

STA 

$70 


DC53 

85 

66 

STA 

$66 


DC55 

4C 

D2 D8 

JMP 

$D8D2 


«t*##*********#*#**#***##**## 

BASIC-Funktion ABS 

DC58 

46 

66 

LSR 

$66 

Vorzeichenbit löschen 

DC5A 

60 


RTS 



ff**«****«*****«****«**###*#** 

Vergleich Konstante (A/Y) mit FAC 

DC5B 

85 

24 

STA 

$24 


DC5D 

84 

25 

STY 

$25 

Zeiger auf Konstante 

DC5F 

A0 

00 

LDY 

#$00 


DC61 

Bl 

24 

LDA 

($24) , Y 

Exponent 

DC63 

C8 


INY 



DC64 

AA 


TAX 



DC65 

F0 

C4 

BEQ 

$DC2B 

null, dann Vorzeichen von FAC holen 

DC67 

Bl 

24 

LDA 

($24) , Y 


DC69 

45 

66 

EOR 

$66 


DC6B 

30 

C2 

BMI 

$DC2F 

verschiedene Vorzeichen 

DC6D 

E4 

61 

CPX 

$61 


DC6F 

D0 

21 

BNE 

$DC92 


DC71 

Bl 

24 

LDA 

($24) , Y 

1. Byte vergleichen 

DC73 

09 

80 

ORA 

#$00 


DC75 

C5 

62 

CMP 

$62 


DC77 

D0 

19 

BNE 

$DC92 


DC79 

C8 


INY 



DC7A 

Bl 

24 

LDA 

($24) ,Y 

2. Byte vergleichen 

DC7C 

C5 

63 

CMP 

$63 


DC7E 

D0 

12 

BNE 

$DC92 


DC80 

C8 


INY 



DC81 

Bl 

24 

LDA 

($24) ,Y 

3. Byte vergleichen 

DC83 

C5 

64 

CMP 

$64 


DCB5 

D0 

0B 

BNE 

$DC92 


DC87 

CB 


INY 



DC88 

A9 

7F 

LDA 

#$7F 


DC8A 

C5 

70 

CMP 

$70 


DC8C 

Bl 

24 

LDA 

($24) , Y 

4. Byte vergleichen 

DC8E 

E5 

65 

SBC 

$65 


DC90 

F0 

28 

BEQ 

$DCBA 


DC92 

A5 

66 

LDA 

$66 


DC94 

90 

02 

BCC 

$DC98 


DC96 

49 

FF 

EOR 

#$FF 

Ergebnis kleiner, dann invertieren 

DC98 

4C 

31 DC 

JMP 

$DC31 

Flag für Ergebnis setzen 

ff**************************** 

Umwandlung Fließkomma nach Integer 

DC9B 

A5 

61 

LDA 

$61 

Exponent 

DC9D 

F0 

4 A 

BEQ 

$DCE9 

null ? 

DC9F 

38 


SEC 



DCA0 

E9 

A0 

SBC 

#$A0 

Zahl größer 32768 ? 

DCA2 

24 

66 

BIT 

$66 



99 



DCA4 

10 

09 


BPL 

$DCAF 


DCA6 

AA 



TAX 



DCA7 

A9 

FF 


LDA 

FF 


DCA9 

85 

68 


STA 

168 


DCAB 

20 

4D 

D9 

JSR 

$D94D 

Mantisse von FAC invertieren 

DCAE 

8A 



TXA 



DCAF 

A2 

61 


LDX 

#161 


DCB1 

C9 

F9 


CMP 

#$F9 


DCB3 

10 

06 


BPL 

$DCBB 


DCB5 

20 

99 

D9 

JSR 

$D999 

FAC rechtsverschieben 

DCB8 

84 

68 


STY 

$68 


DCBA 

60 



RTS 



DCBB 

AB 



TAY 



DCBC 

A5 

66 


LDA 

$66 


DCBE 

29 

80 


AND 

#$80 


DCC0 

46 

62 


LSR 

$62 


DCC2 

05 

62 


ORA 

$62 


DCC4 

85 

62 


STA 

$62 


DCC6 

20 

B0 

D9 

JSR 

$D9B0 


DCC9 

84 

68 


STY 

$68 


DCCB 

60 



RTS 



fr**************************** 

BAS IC-Funktion INT 

DCCC 

A5 

61 


LDA 

$61 

Exponen t 

DCCE 

C9 

A0 


CMP 

#$A0 

ganze Zahl ? 

DCD0 

B0 

20 


BCS 

$DCF2 

j a T dann -fertig 

DCD2 

20 

9B 

DC 

JSR 

$DC9B 

FAC nach Integer wandeln 

0CD5 

84 

70 


STY 

$70 

DCD7 

A5 

66 


LDA 

$66 


DCD9 

84 

66 


STY 

$66 


DCDB 

49 

80 


EOR 

#$80 


DCDD 

2A 



ROL 



DCDE 

A9 

A0 


LDA 

#$A0 


DCE0 

85 

61 


STA 

$61 


DCE2 

A5 

65 


LDA 

$65 


DCE4 

85 

07 


STA 

$07 


DCE6 

4C 

D2 

D8 

JMP 

$ D 8 D 2 

FAC linksbündig machen 

DCE9 

85 

62 


STA 

$62 

Mantisse mit Nullen füllen 

DCEB 

85 

63 


STA 

$63 


DCED 

85 

64 


STA 

$64 


DCEF 

85 

65 


STA 

$65 


DCF 1 

A8 



TAY 



DCF2 

60 



RTS 



***************************** 

Umwandlung ASCII — Zahl nach Fließkomma 

DCF3 

A0 

00 


LDY 

#$00 


DCF5 

A2 

0A 


LDX 

#$0A 


DCF7 

94 

5D 


STY 

$5D 

Bereich $5D bis $66 löschen 

DCF9 

CA 



DEX 



DCFA 

10 

FB 


BPL 

$DCF7 


DCFC 

90 

0F 


BCC 

$DD0D 


DCFE 

C9 

2D 


CMP 

#$2D 


DD00 

D0 

04 


BNE 

$DD06 


DD02 

86 

67 


STX 

$67 

Flag für negativ 

DD04 

F0 

04 


BEQ 

$DD0A 


DD06 

C9 

2B 


CMP 

#$2B 

' +' 

DD08 

D0 

05 


BNE 

$DD0F 


DD0A 

20 

73 

00 

JSR 

$0073 

CHRGET nächstes Zeichen holen 

OD0D 

90 

5B 


BCC 

$DD6A 

Ziffer 7 







100 



DD0F 

C9 

2E 


CMP 

#$2E 

DD 11 

F0 

2E 


EEQ 

$DD41 

DD 1 3 

C9 

45 


CMP 

#$45 

DD 1 5 

D0 

30 


BNE 

$DD47 

DD 1 7 

20 

73 

00 

JSR 

$0073 

DD1A 

90 

17 


BCC 

$DD33 

DD1C 

C9 

AB 


CMP 

#$ AB 

DD1E 

F0 

0E 


BEÖ 

$DD2E 

DD20 

C9 

2D 


CMP 

#$2D 

DD22 

F0 

0A 


BEQ 

$DD2E 

DD24 

C9 

AA 


CMP 

#$AA 

DD26 

F 0 

08 


BEQ 

$DD30 

DD28 

C9 

2B 


CMP 

#$2B 

DD2A 

F0 

04 


BES 

$DD30 

DD2C 

D0 

07 


BNE 

SDD35 

DD2E 

66 

60 


ROR 

$60 

DD30 

20 

73 

00 

JSR 

$0073 

DD33 

90 

5C 


BCC 

$DD91 

DD35 

24 

60 


BIT 

$60 

DD37 

10 

0E 


BPL 

$DD47 

DD39 

A9 

00 


LDA 

#$00 

DD3B 

38 



SEC 


DD3C 

E5 

5E 


SBC 

$5E 

DD3E 

4C 

49 

DD 

JMP 

$DD49 

DD4 1 

66 

5F 


ROR 

$5F 

DD43 

24 

5F 


BIT 

$5F 

DD45 

50 

C3 


BVC 

$DD0A 

DD47 

A5 

5E 


LDA 

$5E 

DD49 

38 



SEC 


DD4A 

E5 

5D 


SBC 

$5D 

DD4C 

85 

5E 


STA 

$5E 

DD4E 

F0 

12 


BEQ 

$DD62 

DD50 

10 

09 


BPL 

IDD5B 

DD52 

20 

FE 

DA 

JSR 

$DAFE 

DD55 

E6 

5E 


INC 

$5E 

DD57 

D0 

F9 


BNE 

$DD52 

DD59 

F0 

07 


BEQ 

$DD62 

DD5B 

20 

E2 

DA 

JSR 

$DAE2 

DD5E 

C6 

5E 


DEC 

$5E 

DD60 

D0 

F9 


BNE 

$DD5B 

DD62 

A5 

67 


LDA 

$67 

DD64 

30 

01 


BMI 

$DD67 

DD66 

60 



RTS 


DD67 

4C 

B4 

DF 

JMP 

$DFB4 

DD6A 

48 



PHA 


DD6B 

24 

5F 


BIT 

$5F 

DD6D 

10 

02 


BPL 

$DD7 1 

DD6F 

E6 

5D 


INC 

$5D 

DD71 

20 

E2 

DA 

JSR 

$DAE2 

DD74 

68 



F‘LA 


DD75 

38 



SEC 


DD76 

E9 

30 


SBC 

#$30 

DD78 

20 

7E 

DD 

JSR 

$DD7E 

DD7B 

4C 

0A 

DD 

JMP 

$DD0A 

DD7E 

48 



PHA 


DD7F 

20 

0C 

DC 

JSR 

$DC0C 

DD82 

68 



PLA 


DD83 

20 

3C 

DC 

JSR 

$DC3C 


Dezimalpunkt ? 

'E' Exponent ? 

CHRSET nächstes Zeichen holen 
Ziffer ? 

Interpreterkode 

'+' Interpreterkode 

' +' 

Bit 7 setzen 

CHRGET nächstes Zeichen holen 

Bit 7 gesetzt ? 
nei n 

Aufruf durch Dezimalpunkt 


FAC = FAC / 10 

FAC = FAC # 10 

Vorzeichenwechsel FAC * - FAC 

FAC = FAC * 10 

ASCII - $30 * hex 

addiert nächste Stelle zu FAC 

nächstes Zeichen 

FAC nach ARG 
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FAC = FAC + ARG 


DD86 

A5 

6E 


LDA 

$6E 

DD8B 

45 

66 


EOR 

$66 

DD8A 

85 

6F 


STA 

$6F 

ODBC 

A6 

61 


LDX 

$61 

DD8E 

4C 

6A 

D8 

JMP 

$D86A 

DD91 

A5 

5E 


LDA 

$5E 

DD93 

C9 

0 A 


CMP 

#$0A 

DD95 

90 

09 


BCC 

$DDA0 

DD97 

A9 

64 


LDA 

#$64 

DD99 

24 

60 


BIT 

$60 

DD9B 

30 

11 


BMI 

$DDAE 

DD9D 

4C 

7E 

D9 

JMP 

$D97E 

DDA0 

0A 



ASL 


DDA1 

0 A 



ASL 


DDA2 

18 



CLC 


DDA3 

65 

5E 


ADC 

$5E 

DDA5 

0A 



ASL 


DDA6 

18 



CLC 


DDA7 

A0 

00 


LDY 

#$00 

DDA9 

71 

7A 


ADC 

($7A) ,Y 

DDAB 

38 



SEC 


DDAC 

E9 

30 


SBC 

#$30 

DDAE 

85 

5E 


STA 

$5E 

DDBB 

4C 

30 

DD 

JMP 

$DD30 


#*##*##****#*#**#******####*# 


DDB3 

9B 

3E 

BC 

1F FD 


DDB8 

9E 

6E 

6B 

27 FD 


DDBD 

9E 

6E 

68 

28 00 


**##**##*###****#*********##* 

DDC2 

A9 

71 


LDA 

#171 

DDC4 

A0 

C3 


LDY 

#$C3 

DDC6 

20 

DA 

DD 

JSR 

$DDDA 

DDC9 

A5 

3A 


LDA 

$3A 

DDCB 

A6 

39 


LDX 

$39 

***************************** 

DDCD 

85 

62 


STA 

$62 

DDCF 

86 

63 


STX 

$63 

DDD1 

A2 

90 


LDX 

#$90 

DDD3 

38 



SEC 


DDD4 

20 

49 

DC 

JSR 

$DC49 

DDD7 

20 

DF 

DD 

JSR 

$DDDF 

DDDA 

4C 

iE 

CB 

JMP 

$CB 1E 

fr***#*#*********#***##*##**#* 

DDDD 

A0 

01 


LDY 

#$01 

DDDF 

A9 

20 


LDA 

#$20 

DDE1 

24 

66 


BIT 

$66 

DDE3 

10 

02 


BPL 

$DDE7 

DDE5 

A9 

2D 


LDA 

#$2D 

DDE7 

99 

FF 

00 

STA 

$00FF,Y 

DDEA 

85 

66 


STA 

$66 

DDEC 

84 

71 


STY 

$71 

DDEE 

C8 



INY 


DDEF 

A9 

30 


LDA 

#$30 

DDF 1 

A6 

6 1 


LDX 

$61 


Aufruf durch 'E' 


gibt 1 overf1ow ' 


nächstes Zeichen holen 

Konstanten für Fließkomma nach ASCII 

99999999.9 

999999999 

1E9 

Ausgabe der Zei1ennummer bei Fehlermeldung 

Zeiger auf 'IN' 

String ausgeben 

laufende Zei1ennummer holen 

Integerzahl <A/X) ohne Vorzeichen ausgeben 

Zahl merken 


Integerzahl nach Fließkomma wandeln 
FAC nach ASCII wandeln 
ASCII-String ausgeben 

FAC nach ASCII-Format und nach $100 

Leerzeichen für positive Zahl 
Vorzeichen testen 
positiv ? 

Minus für negative Zahl 
in Puffer schreiben 


' 0 ' 


Exponent 



DDF3 

D0 

03 


BNE 

$DDF8 

DDF5 

4C 

04 

DF 

JMP 

IDF04 

DDF8 

A9 

00 


LDA 

#$00 

DDFA 

E0 

80 


CPX 

#$80 

DDFC 

F0 

02 


BEQ 

$DE00 

DDFE 

B0 

09 


BCS 

$DE09 

OE00 

A9 

BD 


LDA 

#$BD 

DE02 

A0 

DD 


LDY 

#$DD 

DE04 

20 

28 

DA 

JSR 

$DA28 

DE07 

A9 

F7 


LDA 

#$F7 

DE09 

85 

5D 


STA 

$5D 

DE0B 

A9 

B8 


LDA 

#$BB 

DE0D 

A0 

DD 


LDY 

#$DD 

DE0F 

20 

5B 

DC 

JSR 

$DC5B 

DE 12 

F0 

iE 


BEß 

$DE32 

DE 14 

10 

12 


BPL 

$DE28 

DE 16 

A9 

B3 


LDA 

#$B3 

DE 18 

A0 

DD 


LDY 

#$DD 

DE1A 

20 

5B 

DC 

JSR 

$DC5B 

DE1D 

F0 

02 


BEQ 

$DE21 

DE1F 

10 

0E 


BPL 

$DE2F 

DE21 

20 

E2 

DA 

JSR 

$DAE2 

DE24 

C6 

5D 


DEC 

$5D 

DE26 

D0 

EE 


BNE 

$DE 1 6 

DE28 

20 

FE 

DA 

JSR 

$DAFE 

DE2B 

E6 

5D 


INC 

$5D 

DE2D 

D0 

DC 


BNE 

$DE0B 

DE2F 

20 

49 

D8 

JSR 

$D849 

DE32 

20 

9B 

DC 

JSR 

$DC9B 

DE35 

A2 

01 


L D X 

#$01 

DE37 

A5 

5D 


LDA 

$5D 

DE39 

18 



CLC 


DE3A 

69 

0A 


ADC 

#$0A 

DE3C 

30 

09 


BMI 

$DE47 

DE3E 

C9 

0B 


CMP 

#$0B 

DE40 

B0 

06 


BCS 

$DE48 

DE42 

69 

FF 


ADC 

#$FF 

DE44 

AA 



TAX 


DE45 

A9 

02 


LDA 

#$02 

DE47 

38 



SEC 


DE48 

E9 

02 


SBC 

#$02 

DE4A 

85 

5E 


STA 

$5E 

DE4C 

86 

5D 


STX 

I5D 

DE4E 

8A 



TXA 


DE4F 

F0 

02 


BEQ 

$DE53 

DE51 

10 

13 


BPL 

$DE66 

DE53 

A4 

71 


LDY 

$71 

DE55 

A9 

2E 


LDA 

#$2E 

DE57 

C8 



INY 


DE5B 

99 

FF 

00 

STA 

$00FF,Y 

DE5B 

8A 



TXA 


DE5C 

F0 

06 


BEQ 

$DE64 

DE5E 

A9 

30 


LDA 

#$30 

DE60 

C8 



INY 


DE61 

99 

FF 

00 

STA 

$00FF,Y 

DE64 

84 

71 


STY 

$71 

DE66 

A0 

00 


LDY 

#$00 

DE68 

A2 

80 


LDX 

#$Q0 

DE6A 

A5 

65 


LDA 

$65 

DE6C 

18 



CLC 



Zahl null, dann fertig 

FAC mit eins vergleichen 

FAC größer eins 

Zeiger auf Konstante iE9 
mit FAC multiplizieren 


Zeiger auf Konstante 999999999 
mit FAC vergleichen 
gleich ? 
größer ? 

Zeiger auf Konstante 99999999.9 
mit FAC vergleichen 
gleich ? 
größer ? 

FAC = FAC * 10 


FAC = FAC / 10 


FAC * FAC + 0.5, runden 
FAC nach Integer 


Betrag kleiner 0.1 ? 
Betrag größer 1E9 ? 


' 0 ' 


Berechnung der einzelnen Ziffern 
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DE6D 

79 

19 

DF 

ADC $DF19,Y 




DE70 

85 

65 


STA $65 




DE72 

A5 

64 


LDA $64 




DE74 

79 

18 

DF 

ADC $DF18 , Y 




DE77 

85 

64 


STA $64 




DE79 

A5 

63 


LDA $63 




DE7B 

79 

17 

DF 

ADC $DF17,Y 




DE7E 

85 

63 


STA $63 




DE80 

A5 

62 


LDA $62 




DE82 

79 

16 

DF 

ADC $DF16,Y 




DEB5 

85 

62 


STA $62 




DE87 

E8 



I NX 




DE88 

B0 

04 


BCS $DE8E 




DE8A 

10 

DE 


BPL $DE6A 




DE8C 

30 

02 


BMI $DE90 




DE8E 

30 

DA 


BMI $DE6A 




DE90 

8A 



TXA 




DE9 1 

90 

04 


BCC $DE97 




DE93 

49 

FF 


EOR #$FF 




DE95 

69 

0A 


ADC #$0A 




DE97 

69 

2F 


ADC #$2F 




DE99 

C8 



INY 




DE9A 

CB 



INY 




DE 9 ß 

CB 



INY 




DE9C 

C8 



INY 




DE9D 

84 

47 


STY $47 




DE9F 

A4 

71 


LDY $71 




DEA1 

C8 



INY 




DEA2 

AA 



TAX 




DEA3 

29 

7F 


AND #$7F 




DEA5 

99 

FF 

00 

STA $00FF,Y 




DEA8 

C6 

5D 


DEC $5D 




DEAA 

D0 

06 


BNE $DEB2 




DEAC 

A9 

2E 


LDA #$2E 

*, ' 



DEAE 

CB 



INY 




DEAF 

99 

FF 

00 

STA $00FF t Y 




DEB2 

84 

71 


STY $71 




DEB4 

A4 

47 


LDY $47 




DEB6 

8A 



TXA 




DEB7 

49 

FF 


EOR #$FF 




DEB9 

29 

80 


AND #$80 




DEBB 

AA 



TAX 




DEBC 

C0 

24 


CPY #$24 

Tabel1enende 

bei 

FAC-Umwand1ung 

DEBE 

F0 

04 


BEQ $DEC4 



DEC0 

C0 

3C 


CPY #$3C 

Tabel1enende 

bei 

TI$-Berechnung 

DEC2 

D0 

A6 


BNE $DE6A 



0EC4 

A4 

71 


LDY $71 




DEC6 

B9 

FF 

00 

LDA $0ßFF,Y 




DEC9 

88 



DEY 




DECA 

C9 

30 


CMP #$30 

f 0' 



DECC 

F0 

F8 


BEQ $DEC6 




DECE 

C9 

2E 


CMP #$2E 

' „ ' 



DED8 

F0 

01 


BEQ $DED3 




DED2 

C8 



INY 




DED3 

A9 

2B 


LDA #$2B 

' + ' 



DED5 

A6 

5E 


LDX $5E 




DED7 

F0 

2E 


BES $DF07 




DED9 

10 

08 


BPL $DEE3 




DEDB 

A9 

00 


LDA #$00 




DEDD 

38 



SEC 
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DEDE 

E5 

5E 



SBC 

$5E 


DEE0 

AA 




TAX 



DEE1 

A9 

2D 



LDA 

#$2D 

*- * 

DEE3 

99 

01 

01 


STA 

*0101,Y 


DEE6 

A9 

45 



LDA 

*$45 

'E' 

DEE8 

99 

00 

01 


STA 

$0100,Y 


DEEB 

SA 




TXA 



DEEC 

A2 

2F 



LDX 

#$2F 


DEEE 

38 




SEC 



DEEF 

EB 




1 NX 



DEF0 

E9 

0 A 



SBC 

#$0A 


DEF2 

B0 

FE 



BCS 

$DEEF 


DEF4 

69 

3A 



ADC 

#$3A 


DEF6 

99 

03 

01 


STA 

$0103,Y 


DEF9 

SA 




TXA 



DEFA 

99 

02 

01 


STA 

$0102,Y 


DEFD 

A9 

00 



LDA 

#$00 

Puffer mit 0 abschließen 

DEFF 

99 

04 

01 


STA 

$0104,Y 


DF02 

F0 

08 



BEQ 

$DF0C 


DF04 

99 

FF 

00 


STA 

$00FF,Y 


DF07 

A9 

00 



LDA 

#$00 


DF09 

99 

00 

01 


STA 

$0100,Y 


DF0C 

A9 

00 



LDA 

#$00 


DF0E 

A0 

01 



LDY 

#$01 

Zeiger auf Puffer $100 

DF 1 ß 

60 




RTS 



***************************** 


DF 11 

80 

00 

00 

00 

00 


Konstante 0.5 für SQR 

***************************** 

Konstanten für Fließkamma nach ASCII 








32-Bit Binärzahlen mit Vorzeichen 

BF 16 

F0 

0A 

1F 

00 



-100 000 000 

BF1A 

00 

98 

96 

80 



10 000 000 

BF1E 

FF 

F0 

BD 

C0 



“1 000 000 

BF22 

00 

01 

86 

A0 



100 000 

BF26 

FF 

FF 

D8 

F0 



-10 000 

BF2A 

00 

00 

03 

E8 



1 000 

BF2E 

FF 

FF 

FF 

9C 



- 100 

BF32 

00 

00 

00 

0A 



10 

BF36 

FF 

FF 

FF 

FF 



-1 

***************************** 

Konstanten für Umwandlung TI nach TI$ 

BF3A 

FF 

DF 

0A 

80 



-2 160 000 

BF3E 

00 

03 

4B 

C0 



216 000 

BF42 

FF 

FF 

73 

60 



-36 000 

BF46 

00 

00 

0E 

10 



3 600 

BF4A 

FF 

FF 

FB 

A8 



- 600 

BF4E 

00 

00 

00 

3C 



60 

BF52 

EC 







BF53 

AA 








***************************** 
DF71 20 0C DC JSR $DC0C 

DF74 A9 11 LDA #*11 

DF76 A0 DF LDY #$DF 


BASIC-Funktion SQR 
FAC runden und nach ARG 

Zeiger auf Konstante 0.5 


***************************** 
DF78 20 A2 DB JSR $DBA2 


Potenzierung FAC = ARG hoch Konstante (A/Y) 
Konstante (A/Y) nach ARG 
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***************************** 


DF7B 

F0 

70 



BEG 

$DFED 

DF7D 

A5 

69 



LDA 

$69 

DF7F 

D0 

03 



BNE 

$DF84 

DF81 

4C 

F9 

D8 


JMP 

$D8F9 

DF84 

A2 

4E 



LDX 

#$4E 

DF86 

A0 

00 



LDY 

*100 

DF88 

20 

D4 

DB 


JSR 

$DBD4 

DF8B 

A5 

6E 



LDA 

$6E 

DF8D 

10 

0F 



BPL 

$DF9E 

DF8F 

20 

CC 

DC 


JSR 

IDCCC 

DF92 

A9 

4E 



LDA 

#$4E 

DF94 

A0 

00 



LDY 

#$00 

DF96 

20 

5B 

DC 


JSR 

$DC5B 

DF99 

D0 

03 



BNE 

$DF9E 

DF9B 

98 




TYA 


DF9C 

A4 

07 



LDY 

$07 

DF9E 

20 

FE 

DB 


JSR 

$DBFE 

DFA1 

9B 




TYA 


DFA2 

48 




PHA 


DFA3 

20 

EA 

D9 


JSR 

$D9EA 

DFA6 

A9 

4E 



LDA 

#$4E 

DFAS 

A0 

00 



LDY 

#$00 

DFAA 

20 

28 

DA 


JSR 

$DA28 

DFAD 

20 

ED 

DF 


JSR 

$DFED 

DFB0 

68 




PLA 


DFB1 

4 A 




LSR 


DFB2 

90 

0A 



BCC 

$DFBE 

DFB4 

A5 

61 



LDA 

$61 

DFB6 

F0 

06 



BEß 

$DFBE 

DFB8 

A5 

66 



LDA 

$66 

DFBA 

49 

FF 



EQR 

#$FF 

DFBC 

85 

66 



STA 

$66 

DFBE 

60 




RTS 


***************************** 

DFBF 

81 

38 

AA 

3B 

29 


DFC4 

07 






DFC5 

71 

34 

58 

3E 

56 


DFCA 

74 

16 

7E 

B3 

1B 


DFCF 

77 

2F 

EE 

E3 

85 


DFD4 

7A 

ID 

84 

IC 

2A 


DFD9 

7C 

63 

59 

58 

0A 


DFDE 

7E 

75 

FD 

E7 

C6 


DFE3 

80 

31 

72 

18 

10 


DFE8 

81 

00 

00 

00 

00 


***************************** 

DFED 

A9 

BF 



LDA 

#$BF 

DFEF 

A0 

DF 



LDY 

#$DF 

DFFi 

20 

28 

DA 


JSR 

$DA28 

DFF4 

A5 

70 



LDA 

$70 

DFF6 

69 

50 



ADC 

#$50 

DFF8 

90 

03 



BCC 

$DFFD 

DFFA 

20 

23 

DC 


JSR 

$DC23 

DFFD 

85 

56 



STA 

$56 

DFFF 

20 

0F 

DC 


JSR 

$DC0F 

E002 

A5 

61 



LDA 

$61 

E004 

C9 

88 



CMP 

#$88 

E006 

90 

03 



BCC 

$E00B 


Potenzierung FAC = ARG hoch FAC 

Exponent ARG gleich Basis 

null, dann fertig 

Zeiger auf Hilfsakku 

FAC nach Hilfsakku 

Exponent FAC gleich Potenz exponent 

kl einer als eins ? 

INT-Funktion 

Zeiger auf Hilfsakku 
mit FAC vergleichen 


ARG nach FAC 


LQG-Fun ktion 

Zeiger auf Hilfsakku 
mit FAC multiplizieren 
EXP-Fun ktion 


Vorzeichenwechsel FAC - * FAC 


Konstanten für EXP 
1,44269504 = 1 /LOG <2) 

7 = Polynomgrad, 8 Koeffizienten 

2. 14987637E-5 

1.43523 14 E — 4 

1.34226348E-3 

9.61401 1701E-3 

.0555051269 

.240226385 

.693147186 

1 

BAS IC-Fun ktion EXP 

Zeiger auf Konstante 1 /LOG(2) 
mit FAC multip1izieren 


Mantisse von FAC um eins erhöhen 


FAC nach ARG bringen 
Exponent 

Zahl größer 128 ? 
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E00B 

20 

D4 

DA 

JSR 

$DAD4 

falls positiv 'overflow' 

E 00 B 

20 

CC 

DC 

JSR 

$DCCC 

INT-Funktion 

E00E 

A5 

07 


LDA 

$07 


E010 

18 



CLC 



E011 

69 

81 


ADC 

#$81 


E013 

F0 

F3 


BEQ 

$E008 

gleich 127 ? 

E015 

38 



SEC 


E0 1 6 

E9 

01 


SBC 

#$01 


E018 

48 



PHA 



E019 

A2 

05 


LDX 

#$05 


E01B 

B5 

69 


LDA 

$69,X 


E01D 

B4 

61 


LDY 

$61 

FAC und ARB vertauschen 

E01F 

95 

61 


STA 

$61,X 


E021 

94 

69 


STY 

$69 


E023 

CA 



DEX 



E024 

10 

F5 


BPL 

$E01B 


E026 

A5 

56 


LDA 

$56 


E028 

85 

70 


STA 

$70 


E02A 

20 

53 

D8 

JSR 

$D853 

ARG - FAC 

E02D 

20 

B4 

DF 

JSR 

$DFB4 

Vorzeichenwechsel 

E030 

A9 

C4 


LDA 

#$C4 


E032 

A0 

DF 


LDY 

#$DF 

Zeiger auf Polynomkoeffizienten 

E034 

20 

56 

E0 

JSR 

$E056 

Polynom berechnen 

E037 

A9 

00 


LDA 

#$00 


E039 

85 

6F 


STA 

$6F 


E03B 

68 



PLA 



E03C 

20 

B9 

DA 

JSR 

$DAB9 

Exponenten von FAC und ARG addieren 

E03F 

60 



RTS 



***#********#**#####*#*#*#*** 

Polynomberechnung y=al*x+a2*x A 3+a3*x A 5+ 

E040 

85 

71 


STA 

$71 


E042 

84 

72 


STY 

$72 

Zeiger auf Polynomkoeffizienten 

E044 

20 

CA 

DB 

JSR 

$DBCA 

FAC nach Akku#3 bringen 

E047 

A9 

57 


LDA 

#$57 

Zeiger auf Akku#3 

E049 

20 

28 

DA 

JSR 

$DA28 

FAC * Akku#3 (quadrieren) 

E04C 

20 

5A 

E0 

JSR 

$E05A 

Polynomberechnung 

E04F 

A9 

57 


LDA 

#$57 


E051 

A0 

00 


LDY 

#$00 

Zeiger auf Akku#3 

E053 

4C 

28 

DA 

JMP 

$DA28 

FAC = FAC * Akku#3 

fr***#*******###**#*#***#***#**# 

Polynomberechnung y=a0+al*x+a2*x A 2+a3*x 

E056 

85 

71 


STA 

$71 


E058 

84 

72 


STY 

$72 

Zeiger auf Polynomgrad 

E05A 

20 

C7 

DB 

JSR 

$DBC7 

FAC nach Akuu#4 bringen 

E05D 

Bl 

71 


LDA 

($71) , Y 

Polynomgrad 

E05F 

85 

67 


STA 

$67 

als Zähler benutzen 

E061 

A4 

71 


LDY 

$71 


E063 

C8 



INY 



E064 

98 



TYA 


Zeiger erhöhen, zeigt dann 

E065 

D0 

02 


BNE 

$E069 

auf ersten Koeffizienten 

E067 

E6 

72 


INC 

$72 


E069 

85 

71 


STA 

$71 


E06B 

A4 

72 


LDY 

$72 


E06D 

20 

28 

DA 

JSR 

$DA28 

FAC = Konstante (A/Y) * FAC 

E070 

A5 

71 


LDA 

$71 


E072 

A4 

72 


LDY 

$72 


E074 

18 



CLC 



E075 

69 

05 


ADC 

#$05 

Zeiger um 5 erhöhen - nächste Zahl 

E077 

90 

01 


BCC 

$E07A 


E079 

C8 



INY 




107 



E07A 

85 

71 


STA 

$71 

E07C 

84 

72 


STY 

$72 

E07E 

20 

67 

D8 

JSR 

$D867 

EßB 1 

A9 

5C 


LDA 

#$5C 

E083 

A0 

00 


LDY 

#$00 

E085 

C6 

67 


DEC 

$67 

E087 

D0 

E4 


BNE 

$E06D 

E0B9 

60 



RTS 


***************************** 

E0BA 

98 

35 

44 

7A 00 


E08F 

68 

28 

Bl 

46 00 


***************************** 

E094 

20 

2B 

DC 

JSR 

IDC2B 

E097 

30 

37 


BMI 

$E0D0 

E099 

D0 

20 


BNE 

$E0BB 

E09B 

20 

F3 

FF 

JSR 

$FFF3 

E09E 

86 

22 


STX 

$22 

E0A0 

84 

23 


STY 

$23 

E0A2 

A0 

04 


LDY 

#$04 

E0A4 

Bl 

22 


LDA 

($22),Y 

E0A6 

85 

62 


STA 

$62 

E0AS 

C8 



INY 


E0A9 

Bl 

22 


LDA 

($22),Y 

E0AB 

85 

64 


STA 

$64 

E0AD 

A0 

08 


LDY 

#$08 

E0AF 

Bl 

22 


LDA 

($22) ,Y 

EßB 1 

85 

63 


STA 

$63 

E0B3 

C8 



INY 


E0B4 

Bl 

22 


LDA 

($22),Y 

E0B6 

85 

65 


STA 

$65 

E0B8 

4C 

E0 

E0 

JMP 

$E0E0 

E0BB 

A9 

SB 


LDA 

#$8B 

E0BD 

A0 

00 


LDY 

#100 

EßBF 

20 

A2 

DB 

JSR 

$DBA2 

E0C2 

A9 

SA 


LDA 

#$8A 

E0C4 

A0 

E0 


LDY 

#$E0 

E0C6 

20 

28 

DA 

JSR 

$DA28 

E0C9 

A9 

SF 


LDA 

#$BF 

E0CB 

A0 

E0 


LDY 

#$E0 

E0CD 

20 

67 

D8 

JSR 

$D867 

E0D0 

A6 

65 


LDX 

$65 

E0D2 

A5 

62 


LDA 

$62 

E0D4 

85 

65 


STA 

$65 

E0D6 

86 

62 


STX 

$62 

E0D8 

A6 

63 


LDX 

$63 

E0DA 

A5 

64 


LDA 

$64 

E0DC 

85 

63 


STA 

$63 

E0DE 

86 

64 


STX 

$64 

E0E0 

A9 

00 


LDA 

#$00 

E0E2 

85 

66 


STA 

$66 

E0E4 

A5 

61 


LDA 

$61 

E0E6 

85 

70 


STA 

$7ß 

E0E8 

A9 

80 


LDA 

#$80 

EßEA 

85 

61 


STA 

$61 

E0EC 

20 

D7 i 

D8 

JSR 

$DBD7 

E0EF 

A2 

8B 


LDX 

#$8B 

EßF 1 

A0 

00 


LDY 

#$00 

E0F3 

4C 

D4 DB 

JMP 

$DBD4 


FAC = Konstante (A/Y) + FAC 

Zeiger auf Akku#4 
Zähler erniedrigen 


Konstanten für RND 
11 879 546 
3.927 677 74E-4 

BASIC-Funktion RND 
Vorzeichen von FAC holen 
negativ ? 

Basisadresse VIA holen 


Timer-Werte als RND-Wert holen 


Zeiger auf letzten RND-Wert 
nach FAC holen 

Zeiger auf Konstante 

FAC = Konstante (A/Y) * FAC 

Zeiger auf Konstante 

FAC = Konstante (A/Y) + FAC 


Stellen im FAC vertauschen 


Exponent 

FAC linksbündig machen 

neuen RND-Wert 
Speicher n 
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******************************* Feh 1 erauswertung nach I/O-Routinen 
E0F6 C9 F0 CMF #$F0 RS 232 QPEN/CLÜSE ? 

E0F8 D0 07 BNE $E101 nein 

E0FA 84 38 STY $38 

E0FC 86 37 STX $37 BASIC-RAM Ende neu setzen 

E0FE 4C 63 C6 JMP $C663 zum CLR-Befehl 

E101 AA TAX Fehlernummer nach X 

E102 D0 02 BNE IE106 kein Abbruch durch STOP ? 

E104 A2 IE LDX #$1E Nummer für 'break' 

E106 4C 37 C4 JMP $C437 Fehlermeldung ausgeben 

***************************** BASIC BSOUT 

E109 20 D2 FF JSR $FFD2 ein Zeichen ausgeben 

E10C B0 E8 BCS $E0F6 Fehler ? 

E10E 60 RTS 

***************************** BASIC BASIN 

E10F 20 CF FF JSR IFFCF ein Zeichen holen 

EU 2 B0 E2 BCS $E0F6 Fehler ? 

Ei 14 60 RTS 

***************************** BASIC CKQUT 

E115 20 C9 FF JSR $FFC? Ausgabegerät setzen 

El 18 B0 DC BCS IE0F6 Fehler ? 

El 1A 60 RTS 

***************************** BASIC CHK IN 

E11B 20 C6 FF JSR $FFC6 Eingabegerät setzen 

EHE B0 D6 BCS $E0F6 Fehler ? 

E120 60 RTS 

***************************** BASIC 8ETIN 

E121 20 E4 FF JSR IFFE4 ein Zeichen holen 

E124 B0 D0 BCS $E0F6 Fehler ? 

E126 60 RTS 

***************************** 

E127 20 8A CD JSR ICDBA 

E12A 20 F7 D7 JSR $D7F7 

E12D A9 El LDA #$E1 

E12F 48 PHA 

E130 A9 43 LDA #$43 

E132 48 PHA 

E133 AD 0F 03 LDA $030F 

El 36 48 PHA 

E137 AD 0C 03 LDA $030C 

E13A AE 0D 03 LDX $030D 

E13D AC 0E 03 LDY $030E 

E140 28 PLP 

E141 6C 14 00 JMP ($0014) 

E144 08 PHP 

E145 8D 0C 03 STA $B30C 

E148 8E 0D 03 STX $030D 

E14B BC 0E 03 STY $030E 

EHE 68 PLA 

El f 4F 8D 0F 03 STA $030F 

E152 60 RTS 

***************************** BASIC-Bef eh 1 SAVE 

E153 20 Dl El JSR $E1D1 Parameter holen 

E156 A6 2D LDX $2D 


BASIC-Befehl SYS 

FRMNUM numerischen Ausdruck holen 
in Adress^ormat wandeln, nach $14/$15 


Rücksprungadresse 
Status, 

Akku, 

X-Register und 
Y-Register übergeben 

Funktion ausführen 
Status merken 
Akku, 

X-Register, 

Y-Register und 

Status wieder speichern 
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E 158 

A4 

2E 


LDV $2E 

Endadresse gleich BASIC-Programmende 

EISA 

A9 

2B 


LDA #$2B 

Startadresse gleich BAS IC-Programmstart 

E i 5C 

20 

D8 

FF 

JSR $FFD8 

Save-Rout ine 

E15F 

B0 

95 


BCS $E0F6 

Fehler ? 

E 1 6 1 

60 



RTS 


***************************** 

BASIC-Befehl VERIFY 

E1 62 

A9 

01 


LDA #$01 

Verify-Flag 

E 163 

2C 



.BYTE $2C 


***************************** 

BASIC-Befehl LOAD 

E1 64 

A9 

00 


LDA #$00 

Load-Flag 

E 167 

85 

0A 


STA $0A 

merken 

E1 69 

20 

Dl 

El 

JSR $E1D1 

Parameter holen 

E16C 

A5 

0A 


LDA $0A 

Flag 

E16E 

A6 

2B 


LDX $2B 


E170 

A4 

2C 


LDY $2C 

Startadresse gleich BAS IC-Programmstart 

E172 

20 

D5 

FF 

JSR IFFD5 

Load-Routine 

E175 

B0 

57 


BCS $EICE 

Fehler ? 

E 177 

A5 

0A 


LDA $0A 

Load/Verify-Flag 

E179 

F0 

1A 


BEQ $E195 

Load ? 

E 1 78 

A2 

IC 


LDX #$1C 

Nummer für 'verify error' 

E17D 

20 

B7 

FF 

JSR IFFB7 

Status holen 

E 180 

29 

10 


AND #$10 

Fehlerbit isolieren 

E182 

F0 

03 


BEQ $E187 

kein Fehler ? 

E184 

4C 

37 

C4 

JHP IC437 

Fehlermeldung ausgeben 

E 187 

A5 

7A 


LDA $7A 


E 189 

C9 

02 


CMP #$02 

Direkt-Modus ? 

E18B 

F0 

07 


BEQ $E194 

ja, dann fertig 

E18D 

A9 

64 


LDA #$64 


E18F 

A0 

C3 


LDY #$C3 

Zeiger auf 'ok ' 

E191 

4C 

IE 

CB 

JMP $CB1E 

String ausgeben 

E194 

60 



RTS 

E195 

20 

B7 

FF 

JSR $FFB7 

Status holen 

E198 

29 

BF 


AND #$BF 

EOF-Bit löschen 

E19A 

F0 

05 


BEQ »EiAl 

kein Fehler ? 

E19C 

A2 

ID 


LDX #$1D 

Nummer für 'load error' 

E19E 

4C 

37 

C4 

JMP IC437 

Fehlermeldung ausgeben 

El Al 

A5 

7B 


LDA $7B 


E1 A3 

C9 

02 


CMP #$02 

Direkt-Modus ? 

E1A5 

D0 

0E 


BNE $E1B5 

nein, dann weiter 

El A7 

86 

2D 


STX $2D 


E1A9 

84 

2E 


STY $2£ 

Endadresse gleich Programmende 

El AB 

A9 

76 


LDA #$76 

El AD 

A0 

C3 


LDY #$C3 

Zeiger auf 'ready, ' 

E1AF 

20 

iE 

CB 

JSR $CB1E 

String ausgeben 

E1B2 

4C 

2A 

C5 

JMP $C52A 

Programmzeilen neu binden, CLR 

E1B5 

20 

8E 

C6 

JSR $C68E 

CHRGET-Pointer auf Programmstart 

E1B8 

4C 

76 

E4 

JMP $E476 

zum BASIC-Warmstart 

***************************** 

BASIC-Befehl OPEN 

El BB 

20 

16 

E2 

JSR $E216 

Parameter holen 

EIBE 

20 

C0 

FF 

JSR $FFC0 

Dpen-Routine 

E1C1 

B0 

0B 


BCS $E1 CE 

Fehler ? 

E1C3 

60 



RTS 


***************************** 

BASIC-Befehl CLOSE 

E1C4 

20 

16 

E2 

JSR $E216 

Parameter holen 

E1C7 

A5 

49 


LDA $49 

Fi 1enummer 

E1C9 

20 

C3 

FF 

JSR $FFC3 

CIose-Routine 


ne 



E ICC 

90 

C6 


BCC 

$E 1 94 

ok 

E ICE 

4C 

F6 

E0 

JHP 

IE0F6 

zur Fehlerauswertung 

***************************** 

Paranieter für LOAD und SAVE holen 

E1D1 

A9 

00 


LDA 

#$00 

Default für Länge des Filenamens 

E1D3 

20 

BD 

FF 

JSR 

$FFBD 

Fi 1enamenparameter setzen 

E1D6 

A2 

01 


LDX 

#$01 

Default für Gerätenummer 

E1D8 

A0 

00 


LDY 

#$00 

“ Sekundäradresse 

E1DA 

20 

BA 

FF 

JSR 

IFFBA 

Fileparameter setzen 

E1DD 

20 

03 

E2 

JSR 

$E203 

weitere Zeichen ? 

E1E0 

20 

54 

E2 

JSR 

$E254 

Filenamen holen 

E1E3 

20 

03 

E2 

JSR 

$E203 

weitere Zeichen ? 

E1E6 

20 

FD 

El 

JSR 

$E 1 FD 

Primäradresse holen 

E 1E 9 

A0 

00 


LDY 

#$00 


E1EB 

86 

49 


STX 

$49 


E1ED 

20 

BA 

FF 

JSR 

$FFBA 

Fileparameter setzen 

E1F0 

20 

03 

E2 

JSR 

$E203 

weitere Zeichen ? 

E1F3 

20 

FD 

El 

JSR 

$E1FD 

Sekundäradresse holen 

E1F6 

8A 



TXA 



E1F7 

A8 



TAY 



E1F8 

A6 

49 


LDX 

$49 


EIFA 

4C 

BA 

FF 

^JMP 

IFFBA 

Fileparameter setzen 

***************************** 


E1 FD 

20 

0B 

E2 

JSR 

IE20B 

prüft auf Komma und weitere Zeichen 

E200 

4C 

9E 

D7 

JHP 

ID79E 

holt Byte-Wert nach X 

#**##***##***#**#**##*#****** 

prüft auf weitere Zeichen 

E203 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

E206 

D0 

02 


BNE 

IE20A 

weiteres Zeichen, dann Rückkehr 

E206 

68 



PLA 


sonst Rückkehr zur übergeordneten Rout: 

E209 

68 



FLA 



E20A 

60 



RTS 



******#**###*#*#**#*##*#*#*#* 


E20B 

20 

FD 

CE 

JSR 

ICEFD 

prüft auf Komma 

E20E 

20 

79 

00 

JSR 

$0079 

CHRGOT laufendes Zeichen holen 

E211 

D0 

F7 


BNE 

$E20A 

weiteres Zeichen, dann Rückkehr 

E213 

4C 

08 

CF 

JMP 

$CF08 

sonst 'syntax error' 

***************************** 

Parameter für OPEN und CLOSE holen 

E216 

A9 

00 


LDA 

#$00 

Default für Länge des Filenames 

E218 

20 

BD 

FF 

JSR 

IFFBD 

Fi 1enamenparameter setzen 

E21B 

20 

0E 

E2 

JSR 

IE20E 

weitere Zeichen ? 

E21E 

20 

9E 

D7 

JSR 

ID79E 

holt logische Filenummer 

E221 

86 

49 


STX 

$49 


E223 

8A 



TXA 



E224 

A2 

01 


LDX 

#$01 

Default für Geräteadresse 

E226 

A0 

00 


LDY 

#$00 

” Sekundäradresse 

E228 

20 

BA 

FF 

JSR 

$FFBA 

Fileparameter setzen 

E22B 

20 

03 

E2 

JSR 

$E203 

weitere Zeichen ? 

E22E 

20 

FD 

El 

JSR 

$E1FD 

holt Geräteadresse 

E231 

86 

4A 


STX 

$4A 


E233 

A0 

00 


LDY 

#$00 


E235 

A5 

49 


LDA 

$49 


E237 

E0 

03 


CPX 

#$03 


E239 

90 

01 


BCC 

$E23C 


E23B 

88 



DEY 



E23C 

20 

BA 

FF 

JSR 

IFFBA 

Fileparameter setzen 

E23F 

20 

03 

E2 

JSR 

IE203 

weiter Zeichen ? 


in 



E242 

20 

FD 

El 

J SR 

IE1FD 

E245 

8A 



TXA 


E246 

A8 



TAY 


E247 

A6 

4A 


LDX 

$4A 

E249 

A5 

49 


LDA 

$49 

E24B 

20 

BA 

FF 

JSR 

$FFBA 

E24E 

20 

03 

E2 

JSR 

$E203 

E2 51 

20 

0B 

E2 

JSR 

$E20B 

E254 

20 

9E 

CD 

JSR 

$CD9E 

E257 

20 

A3 

D6 

JSR 

ID6A3 

E25A 

A6 

22 


LDX 

$22 

E25C 

A4 

23 


LDY 

$23 

E25E 

4C 

BD 

FF 

JMP 

$FFBD 

***************************** 

E261 

A9 

DD 


LDA 

#$DD 

E263 

A0 

E2 


LDY 

#$E2 

E265 

20 

67 

D8 

JSR 

$D867 


***************************** 


E26S 

20 

0C 

DC 

JSR 

$DC0C 

E26B 

A9 

E2 


LDA 

#$E2 

E26D 

A0 

E2 


LDY 

#$E2 

E26F 

A6 

6E 


LDX 

$6E 

E271 

20 

07 

DB 

JSR 

$DB07 

E274 

20 

0C 

DC 

JSR 

$DC0C 

E277 

20 

CC 

DC 

JSR 

$DCCC 

E27A 

A9 

00 


LDA 

#$00 

E27C 

85 

6F 


STA 

$6F 

E27E 

20 

53 

DB 

JSR 

$D853 

E281 

A9 

E7 


LDA 

#$E7 

E283 

A0 

E2 


LDY 

#$E2 

E205 

20 

50 

D8 

JSR 

$D850 

E288 

A5 

66 


LDA 

$66 

E28A 

48 



PHA 


E28B 

10 

0D 


BPL 

$E29A 

E28D 

20 

49 

D8 

JSR 

$D849 

E290 

A5 

66 


LDA 

$66 

E292 

30 

09 


BMI 

$E29D 

E294 

A5 

12 


LDA 

$12 

E296 

49 

FF 


EOR 

#$FF 

E298 

85 

12 


STA 

$12 

E29A 

20 

B4 

DF 

JSR 

$DFB4 

E29D 

A9 

E7 


LDA 

#$E7 

E29F 

A0 

E2 


LDY 

#$E2 

E2A1 

20 

67 

D8 

JSR 

$D867 

E2A4 

68 



PLA 


E2A5 

10 

03 


BPL 

$E2AA 

E2A7 

20 

B4 

DF 

JSR 

$DFB4 

E2AA 

A9 

EC 


LDA 

#$EC 

E2AC 

A0 

E2 


LDY 

#$E2 

E2AE 

4C 

40 

E0 

JMP 

$E040 

***************************** 

E2B1 

20 

CA 

DB 

JSR 

$DBCA 

E2B4 

A9 

00 


LDA 

#$00 

E2B6 

85 

12 


STA 

$12 

E2B8 

20 

68 

E2 

JSR 

$E268 

E2BB 

A2 

4E 


LDX 

#$4E 

E2BD 

A0 

00 


LDY 

#$00 


holt Sekundäradresse 


Fi 1eparameter setzen 
weitere Zeichen ? 

Komma, weitere Zeichen ? 

holt Filenamen 

holt Stringparameter 


setzt Fi 1enamenparameter 

BAS IC-Funktion COS 

Zeiger aut Konstante Pi/2 
zu FAC addieren 

BASIC-Funktion SIN 
FAC runden und nach ARG 

Zeiger auf Konstante Pi*2 

FAC durch 2*Pi didvidieren 
FAC runden und nach ARG 
INT-Funktion 


ARG minus FAC 

Zeiger auf Konstante 0.25 
0.25 minus FAC 

Vorzeichen auf Stack 
positiv ? 

FAC + 0.5 
Vorzeichen 
negativ ? 

Flag umdrehen 

Vorzeichen wechseln 

Zeiger auf Konstante 0.25 
FAC + 0.25 
Vorzeichen holen 
positiv ? 

Vorzeichen wechseln 

Zeiger auf Polynomkoeffizienten 
Polynom berechnen 

BASIC-Funktion TAN 
FAC nach Akku#3 

Flag setzen 
SIN berechnen 

Zeiger auf Hilfsakku 
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FAC nach Hilfsakku 

Zeiger auf Akku#3 
A k fc u # 3 nach FAC 

Vor Zeichen 
Fl ag 

COS berechnen 

Zeiger au-f Hilfsakku (SIN) 
durch FAC dividieren 

COS berechnen 


E2BF 

20 

F3 

E0 


JSR 

$E0F3 

E2C2 

A9 

57 



LDA 

#$57 

E2C4 

A0 

00 



LDV 

#$00 

E2C6 

20 

A2 

DB 


JSR 

$DBA2 

E2C9 

A9 

00 



LDA 

#$00 

E2CB 

85 

66 



STA 

$66 

E2CD 

A5 

12 



LDA 

$12 

E2CF 

20 

D9 

E2 


JSR 

$E2D9 

E2D2 

A9 

4E 



LDA 

#$4E 

E2D4 

A0 

00 



LDY 

#$00 

E2D6 

4C 

0F 

DB 


JHP 

$DB0F 

E2D9 

48 




PHA 


E2DA 

4C 

9A 

E2 


JMP 

$E29 A 

****• 

»#****##*##«*«********* 

E2DD 

Bl 

49 

0F 

DA 

A2 


E2E2 

83 

49 

0F 

DA 

A2 


E2E7 

7F 

00 

00 

00 

00 


E2EC 

05 






E2ED 

84 

E6 

1A 

2D 

1B 


E3F2 

86 

28 

07 

FB 

F8 


E3F7 

87 

99 

68 

89 

01 


E3FC 

87 

23 

35 

DF 

El 


E301 

86 

A5 

5D 

E7 

28 


E306 

83 

49 

0F 

DA 

A2 


***************************** 

E30B 

A5 

66 



LDA 

$66 

E30D 

48 




PHA 


E30E 

10 

03 



BPL 

$E3 13 

E310 

20 

B4 

DF 


JSR 

$DFB4 

E313 

A5 

61 



LDA 

$61 

E315 

48 




PHA 


E316 

C9 

81 



CMP 

#$81 

E318 

90 

07 



BCC 

$E321 

E31A 

A9 

BC 



LDA 

#$BC 

E31C 

A0 

D9 



LDY 

#$D9 

E31E 

20 

0F 

DB 


JSR 

$DB0F 

E321 

A9 

3B 



LDA 

#$3B 

E323 

A0 

E3 



LDY 

#$E3 

E325 

20 

40 

E0 


JSR 

$E040 

E328 

68 




PLA 


E329 

C9 

81 



CMP 

#$B 1 

E32E 

90 

07 



BCC 

$E334 

E32D 

A9 

DD 



LDA 

#$DD 

E32F 

A0 

E2 



LDY 

#$E2 

E331 

20 

50 

DB 


JSR 

$D850 

E334 

68 




PLA 


E335 

10 

03 



BPL 

IE33A 

E337 

4C 

B4 

DF 


JMP 

$DFB4 

E33A 

60 




RTS 


***************************** 

E33B 

0B 






E33C 

76 

B3 

83 

BD 

D3 


E341 

79 

IE 

F4 

A6 

F5 


E346 

7B 

83 

FC 

B0 

10 


E34B 

7C 

0C 

1F 

67 

CA 


E350 

7C 

DE 

53 

CB 

CI 


E355 

7D 

14 

64 

70 

4C 



Konstanten für SIN und COS 
1.57079633 Pi/2 
6.28318531 2*Pi 
.25 

5 = Polyncmgrad, 6 Koeffizienten 
-14.3813907 
42.0077971 
-76.7041703 
81.6052237 
-41.3147021 
6.28318531 2*Pi 


Zeiger auf Konstante 1 
1 durch FAC dividieren (Kehrwert) 

Zeiger auf Polynomkoeffizienten 
Polynom berechnen 
Exponent zurückholen 


Konstanten für ATN 
11 = Polynomgrad, 12 Koeffizienten 
-6.84793912E-4 
4.850942 16E-3 
-.0161117015 
.034209638 
-.054279133 
.0724571965 


BASIC-Funktion ATN 
Vorzeichen 
retten 
positiv ? 

Vorzeichen wechseln 

Exponent 

retten 

Zahl mit 1 vergleichen 
kleiner ? 


war Zahl kleiner 1 

Zeiger auf Konstante Pi/2 
Pi/2 minus FAC 
Vorzeichen holen 
positiv ? 

Vorzeichen wechseln 
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E35A 

7D 

B7 EA 

51 

7A 


-.0898819185 

E35F 

7D 

63 30 

88 

7E 


.110932413 

E364 

7E 

92 44 

99 

3A 


-.142839808 

E369 

7E 

4C CC 

91 

C7 


.19999912 

E36E 

7F 

AA AA 

AA 

13 


-.333333316 

E373 

81 

00 00 

00 

00 


1 

***************************** 

BASIC-Kaltstart 

E378 

20 

5B E4 


JSR 

$E45B 

setzt BASIC-Vektoren 

E37B 

20 

A4 E3 


JSR 

$E3A4 

Zeropage initialisieren 

E37E 

20 

04 E4 


JSR 

$£404 

schreibt Überschrift 

E381 

A2 

FB 


LDX 

#$FB 


E383 

9A 



TXS 


Stackpointer initialisieren 

E3B4 

4C 

74 C4 


JHP 

$C474 

zum READY-Modus 

***************************** 

Kopie der CHRGET-Routine 

E387 

E 6 

7A 


INC 

$7A 


E389 

D0 

02 


BNE 

f E38D 


E38B 

E6 

7B 


INC 

$7B 


E38D 

AD 

60 EA 


LDA 

IEA60 


E390 

C9 

3A 


CUP 

#$3A 


E392 

B0 

0A 


BCS 

$E39E 


E394 

C9 

20 


CMP 

#$20 


E 3 96 

F0 

EF 


BEQ 

$E387 


E398 

38 



SEC 



E399 

E9 

30 


SBC 

#$30 


E39B 

38 



SEC 



E39C 

E9 

D0 


SBC 

#$D0 


E39E 

60 



RTS 



***************************** 

Anfanqswert für RND 

E39F 

80 

4F C7 

52 

53 


.811635157 

***************************** 

RAM für BASIC initialisieren 

E3A4 

A9 

4C 


LDA 

#$4C 

JMP 

E3A6 

85 

54 


STA 

$54 

für Funktionen 

E3A8 

85 

00 


STA 

$00 

für USR 

E3AA 

A9 

48 


LDA 

#$48 


E3AC 

A0 

D2 


LDY 

#$D2 


E3AE 

85 

01 


STA 

$01 

USR-Vektor auf 'ILLEGAL QUANTITY' 

E3B0 

84 

02 


STY 

$02 


E3B2 

A9 

91 


LDA 

#$91 


E3B4 

A0 

D3 


LDY 

#$D3 

$D391 

E3B6 

85 

05 


STA 

$05 

als Vektor für Fest/Fließkommaumwand1unq 

E3B8 

84 

06 


STY 

$06 

E3BA 

A9 

AA 


LDA 

#$ AA 


E3BC 

A0 

Dl 


LDY 

#$D 1 

$D 1 AA 

E3BE 

85 

03 


STA 

$03 

als Vektor für F1ieß/Festkommaumwand1ung 

E3C0 

84 

04 


STY 

$04 

E3C2 

A2 

IC 


LDX 

#$1C 


E3C4 

BD 

87 E3 


LDA 

$E387,X 


E3C7 

95 

73 


STA 

$73,X 

CHRGET-Routine ins RAM kopieren 

E3C9 

CA 



DEX 


E3CA 

10 

F8 


BPL 

$E3C4 


E3CC 

A9 

03 


LDA 

#$03 


E3CE 

85 

53 


STA 

$53 


E3D0 

A9 

00 


LDA 

#$00 


E3D2 

85 

68 


STA 

$68 


E3D4 

85 

13 


STA 

$13 

Ein/Ausgabe auf Default 

E3D6 

85 

18 


STA 

$18 
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E3D8 

A2 

01 


LDX #$01 


E3DA 

8E 

FD 

01 

STX $01 FD 


E3DD 

8E 

FC 

01 

STX $01 FC 


E3E0 

A2 

19 


LDX #$19 


E3E2 

86 

16 


STX $16 

Zeiger Tür Stringverwaltung 

E3E4 

38 



SEC 


E3E5 

20 

9C 

FF 

JSR $FF9C 

holt RAM Anfang 

E3E8 

86 

2B 


STX $2B 


E3EA 

84 

2C 


STY $2C 

als BASIC-Start speichern 

E3EC 

38 



SEC 


E3ED 

20 

99 

FF 

JSR $FF99 

holt RAM Ende 

E3F0 

86 

37 


STX $37 


E3F2 

84 

38 


STY $38 

als BASIC-Ende speichern 

E3F4 

86 

33 


STX $33 


E3F6 

84 

34 


STY $34 


E3F8 

A0 

00 


LDY #$00 


E3FA 

98 



TYA 


E3FB 

91 

2B 


STA <$2B),Y 

Null an BASIC-Start 

E3FD 

E6 

2B 


INC $2B 


E3FF 

D0 

02 


BNE $E403 

BASIC-Start plus eins 

E401 

E6 

2C 


INC $2C 


E403 

60 



RTS 


fr**************************** 


E404 

A5 

2B 


LDA $2B 


E406 

A4 

2C 


LDY $2C 

Zeiger auf BASIC-Start 

E408 

20 

08 

C4 

JSR $C408 

prüft auf Platz im Speicher 

E40B 

A9 

36 


LDA #$36 


E40D 

A0 

E4 


LDY #$E4 

Zeiger auf 'cbm basic ' 

E40F 

20 

iE 

CB 

JSR $CB1E 

String ausgeben 

E412 

A5 

37 


LDA $37 


E414 

38 



SEC 

BASIC-Ende 

E415 

E5 

2B 


SBC $2B 

minus 

E417 

AA 



TAX 


E418 

A5 

38 


LDA $38 

BASIC-Start gleich freier Speicherplatz 

E41A 

E5 

2C 


SBC $2C 


E41C 

20 

CD 

DD 

JSR $DDCD 

Zahl ausgeben 

E41F 

A9 

29 


LDA #$29 


E421 

A0 

E4 


LDY #$E4 

Zeiger auf 'bytes free' 

E423 

20 

IE 

CB 

JSR $CB1E 

String ausgeben 

E426 

4C 

44 

C6 

JMP $C644 

zum NEW-Befehl 

ft**********************«**««* 

Systemmeldüngen 

E429 

20 

42 

59 

54 45 53 20 

bytes 

E430 

46 

52 

45 

45 0D 00 93 2A 

free * 

E438 

2A 

2 A 

2A 

20 43 42 4D 20 

*** cbm 

E440 

42 

41 

53 

49 43 20 56 32 

basic v2 

E448 

20 

2A 

2A 

2A 2A 0D 00 

**** 

***************************** 

Tabelle der BAS IC-Vektoren 

E44F 

3A 

C4 

83 

C4 7C C5 1A 


E457 

E4 

C7 

86 

CE 


***************************** 

BASIC-Vektoren setzen 

E45B 

A2 

0B 


LDX #$0B 


E45D 

BD 

4F 

E4 

LDA $E44F,X 


E460 

9D 

00 

03 

STA $0300,X 


E463 

CA 



DEX 


E464 

10 

F7 


BPL $E45D 


E466 

60 



RTS 
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***************************** 


E467 

20 

CC 

FF 

J SR 

$FFCC 

E46A 

A9 

00 


LDA 

#$00 

E46C 

85 

13 


STA 

$13 

E46E 

20 

7A 

C6 

JSR 

$C67A 

E471 

58 



CU 


E472 

4C 

74 

C4 

JMP 

$C474 

***************************** 

E475 

E8 



I NX 


E476 

20 

33 

C5 

JSR 

$C533 

E479 

4C 

77 

C6 

JMP 

IC677 

E47C 

FF 





E49F 

-* 

. . FF 



***************************** 

E4A0 

AD 

2C 

91 

LDA 

$912C 

E4A3 

29 

DF 


AND 

#$DF 

E4A5 

SD 

2C 

91 

STA 

$912C 

E4AB 

60 



RTS 


***************************** 

E4A9 

AD 

2C 

91 

LDA 

I912C 

E4AC 

09 

20 


ORA 

#$20 

E4AE 

8D 

2C 

91 

STA 

I912C 

E4B 1 

60 



RTS 


***************************** 

E4B2 

AD 

1F 

91 

LDA 

$911F 

E4B5 

CD 

1F 

91 

CMP 

$9 11F 

E4BS 

D0 

F8 


BNE 

$E4B2 

E4BA 

4A 



LSR 


E4BB 

60 



RTS 


***************************** 

E4BC 

A6 

B9 


LDX 

$B9 

E4BE 

4C 

47 

F6 

JMP 

$F647 

***************************** 

E4C1 

8 A 



TXA 


E4C2 

D0 

08 


BNE 

$E4CC 

E4C4 

A5 

C3 


LDA 

$C3 

E4C6 

85 

AE 


STA 

$AE 

E4C8 

A5 

C4 


LDA 

$C4 

E4CA 

85 

AF 


STA 

$AF 

E4CC 

4C 

6A 

F6 

JMP 

$F66A 

***************************** 

E4CF 

20 

E3 

F8 

JSR 

$FBE3 

E4D2 

90 

03 


BCC 

$E4D7 

E4D4 

68 



PLA 


E4D5 

A9 

00 


LDA 

#$00 

E4D7 

4C 

9E 

F3 

JMP 

$F39E 


E4DA FF .... 
E4FF .... FF 


***************************** 

E508 A2 10 LDX #$10 


BASIC NMI-Einsprung 

CLRCH I/Q-Kanäle rücksetzen 

BASIC I/O Flag 
Stackpointer initialisieren 

zum Ready-Modus 

BASIC-Zeilen neu binden 
RESTORE und initialisieren 

DAV Hi ausgeben 
Bit 5 löschen 

DAV Lo ausgeben 
Bit 5 setzen 

NRFD und NDAC abfragen 


'searching for natne' ausgeben 
Offset für 'searching for' 

Text und Filenamen ausgeben 

Endadresse für Load setzen 
Sekundäradresse 
ungleich nul1 ? 

Startadresse vom File übernehmen 

' 1oading' ausgeben 

Block auf Band schreiben 

Band-Save abschließen 

Basis-Adresse des VIAs holen 
Zeiger X/Y auf $9110 
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E502 A3 91 LDY #191 

E504 60 RTS 

*********** *********** ******* Bi 1dschirmformat holen 


E505 

A2 

16 


LDX 

#$16 

22 Spalten 

E507 

A0 

17 


LDY 

#$17 

23 Zeilen 

E509 

60 



RTS 



***************************** 

Cursor setzen (C=0)/ holen (C=l) 

E50A 

B0 

07 


BCS 

$E513 


E50C 

86 

D6 


STX 

$D6 


E50E 

84 

D3 


STY 

$D3 


E510 

20 

87 

E5 

JSR 

$E587 

Cursorposition berechnen 

E513 

A6 

D6 


LDX 

$D6 

Zeile 

E515 

A4 

D3 


LDY 

$D3 

Spalte 

E517 

60 



RTS 



***************************** 

vom RESET 

E51B 

20 

BB 

E5 

JSR 

$E5BB 

Standard 1/0, Videocontrol1 er initialisieren 

E51B 

AD 

88 

02 

LDA 

$0288 

Video-RAM Page 

E51E 

29 

FD 


AND 

#$FD 


E520 

0A 



ASL 



E521 

0A 



ASL 


Lage des Video-RAMs berechnen 

E522 

09 

80 


ORA 

#$80 


E524 

8D 

05 

90 

STA 

$9005 


E527 

AD 

88 

02 

LDA 

$0288 


E52A 

29 

02 


AND 

#$02 


E52C 

F0 

08 


BEQ 

$E536 


E52E 

A9 

80 


LDA 

#$80 


E530 

0D 

02 

90 

ORA 

$9002 


E533 

8D 

02 

90 

STA 

$9002 

Videocantrol1 er CR2 

E536 

A9 

00 


LDA 

#$00 


E538 

8D 

91 

02 

STA 

$0291 

Shift/Commadore ermöglichen 

E53B 

85 

CF 


STA 

$CF 

Cursor nicht in Blinkphase 

E53D 

A9 

DC 


LDA 

#$DC 


E53F 

8D 

8F 

02 

STA 

$028F 


E542 

A9 

EB 


LDA 

#$EB 


E544 

8D 

90 

02 

STA 

$0290 

Zeiger auf Tastatur-Decodier-Tabel 1 e IEBDC 

E547 

A9 

0A 


LDA 

#$0A 


E549 

8D 

89 

02 

STA 

$0289 

Tastaturpuffer auf 10 Zeichen begrenzen 

E54C 

8D 

8C 

02 

STA 

$028C 

Zähler für Repeatverzögerung 

E54F 

A9 

06 


LDA 

#$06 


E551 

8D 

86 

02 

STA 

$0286 

Augenblickliche Farbe 

E554 

A9 

04 


LDA 

#$04 


E556 

8D 

8B 

02 

STA 

$028B 

Repeatgeschwindigkeit für Tastatureingabe 

E559 

A9 

0C 


LDA 

#$0C 


E55B 

85 

CD 


STA 

$CD 

Cursor Blinkzeit 

E55D 

85 

CC 


STA 

$CC 

Cursor Blinkflag 

***************************** 

CLR SCREEN 

E55F 

AD 

88 

02 

LDA 

$0288 

Speicherseite für Video-RAM 

E562 

09 

80 


ORA 

#$80 


E564 

A8 



TAY 



E565 

A9 

00 


LDA 

#$00 


E567 

AA 



TAX 



E568 

94 

D9 


STY 

$D9, X 


E56A 

18 



CLC 



E56B 

69 

16 


ADC 

#$16 

22 addieren 

E56D 

90 

01 


BCC 

$E570 
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E56F C8 INY 

E570 E8 INX 

E571 E0 18 CPX #$18 24, schon alle Zeilen ? 

E573 00 F3 BNE $E568 

E575 A9 FF LDA #$FF 

E577 95 09 STA $09,X 

E579 A2 16 IDX #$16 22 

E57B 20 80 EA JSR $EA8D Bildschirmzeile löschen 

E57E CA DEX 

E57F 10 FA BPL $E57B schon alle Zeilen ? 

***************************** Cursor HOME 
E581 A0 00 LDY #$00 

E583 84 03 STY $03 Cursorspalte 

E585 84 D6 STY $06 Cursorzeile 

***************************** Cursorposition berechnen 

E587 A6 D6 LDX $06 Cursorzeile 

E589 A5 03 LDA $03 Cursorspalte 

E58B B4 09 LDY $09 

E58D 30 08 BMI $E597 

E58F 18 CLC 

E590 69 16 ADC #$16 22 -für eine Zeile addieren 

E592 85 03 STA $03 

E594 CA DEX 

E595 10 F4 BPL $E58B 

E597 B5 09 LDA $D9,X MSB für Zeilenanfang 

E599 29 03 AND #$03 

E59B 0D 88 02 ORA $0288 mit Video-RAM-Page verknüpfen 

E59E 85 D2 STA $02 gleich Adresse high 

E5A0 BD FD ED LDA $EDFD,X LSB aaus Tabelle holen (Spalte in X) 

E5A3 85 01 STA $D1 als Adresse low speichern 

E5A5 A9 15 LDA #$15 21 

E5A7 ES I NX 

E5A8 B4 09 LDY $D9 

E5AA 30 06 BMI $E5B2 

E5AC 18 CLC 

E5AD 69 16 ADC #$16 22 für eine Zeile addieren 

E5AF E8 INX 

E5B0 10 F6 BPL $E5A8 

E5B2 85 D5 STA $D5 

E5B4 60 RTS 

***************************** 

E5B5 20 BB E5 JSR $E5BB Videocontroller initialisieren 

E5B8 4C 81 E5 JMP $E581 Cursor Home 

***************************** Videocontroller initialisieren 
E5BB A9 03 LDA #$03 

E5BD 85 9A STA $9A Ausgabe auf Bildschirm 

E5BF A9 00 LDA #$00 

E5C1 85 99 STA $99 Eingabe auf Tastatur 

E5C3 A2 10 LDX #$10 

E5C5 BD E3 ED LDA $EDE3,X Konstanten 

E5C8 9D FF 8F STA $8FFF,X in Videocontroller schreiben 

E5CB CA DEX 

E5CC D0 F7 BNE $E5C5 

E5CE 60 RTS 

***************************** Zeichen aus Tastaturpuffer holen 
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E5CF 

AC 

77 

02 

LDY 

$0277 


erstes Zeichen holen 

E5D2 

A2 

00 


LDX 

#$00 



E5D4 

BD 

78 

02 

LDA 

$0278, 



E5D7 

9D 

77 

02 

STA 

$0277, 

pX 

Puffer aufrücken 

E5DA 

Ea 



IN X 




E5DB 

E4 

C6 


CPX 

$C6 


mit Anzahl der Zeichen im Puffer vergleichen 

E5DD 

D0 

F5 


BNE 

$E5D4 



E5DF 

C 6 

C6 


DEC 

$C6 


Anzahl erniedrigen 

E5E1 

98 



TYA 



Zeichen in Akku holen 

E5E2 

58 



CU 




E5E3 

18 



CLC 




E5E4 

60 



RTS 




***************************** 

Warteschleife für Tastatureingabe 

E5E 5 

20 

42 

E7 

JSR 

$E742 


Zeichen auf Bildschirm ausgeben 

E5E8 

A5 

C6 


LDA 

$C6 


Anzahl der gedrückten Tasten 

E5EA 

85 

CC 


STA 

$CC 


Flag für Cursor-Blinken 

E5EC 

8D 

92 

02 

STA 

$0292 



E5EF 

F0 

F7 


BEQ 

$E5E8 



E5F1 

78 



SEI 




E5F2 

A5 

CF 


LDA 

$CF 


Cursor in Blinkphase ? 

E5F4 

F0 

0C 


BEQ 

$E602 



E5F6 

A5 

CE 


LDA 

$CE 


Zeichen unter Cursor 

E5F8 

AE 

87 

02 

LDX 

$0287 


Farbe unter Cursor 

E5FB 

A0 

00 


LDY 

#$00 



E5FD 

84 

CF 


STY 

$CF 



E5FF 

20 

Al 

EA 

JSR 

$EAA1 


Zeichen in Bildschirm-RAM schreiben 

E602 

20 

CF 

E5 

JSR 

$E5CF 


Zeichen aus Tastaturpuffer holen 

E60 5 

C9 

83 


CMP 

#183 


Kode für 'Shift/RUN' ? 

E607 

D0 

10 


BNE 

$E619 



E609 

A2 

09 


LDX 

#$09 


9 Zeichen in Tastaturpuffer holen 

E60B 

78 



SEI 




E60C 

86 

C6 


STX 

$C6 


Zeichenzahl merken 

E60E 

BD 

F3 

ED 

LDA 

IEDF3, 

,x 

' 1oad (er) run (er) ' 

E611 

9D 

76 

02 

STA 

$0276, 

t x 

in Tastaturpuffer holen 

E614 

CA 



DEX 




E615 

D0 

F7 


BNE 

$E60E 



E617 

F0 

CF 


BEQ 

$E5E8 



E619 

C9 

0D 


CMP 

#$0D 


'er' ? 

E61B 

D0 

CB 


BNE 

$E5E5 


nein, dann zurück zur Warteschleife 

E61D 

A4 

D5 


LDY 

$D5 



E6 i F 

84 

D0 


STY 

$D0 


CR-Flag setzen 

E621 

Bl 

Dl 


LDA 

($D 1) , 

, Y 

Zeichen vom Bildschirm holen 

E623 

C9 

20 


CMP 

#$20 


Blanks am Zeilenende eleminieren 

E625 

D0 

03 


BNE 

$E62A 



E627 

88 



DEY 




E62B 

D0 

F7 


BNE 

$E62 1 



E62A 

C8 



INY 




E62B 

84 

C8 


STY 

$C8 


Position als Index merken 

E62D 

A0 

00 


LDY 

#$00 



E62F 

8C 

92 

02 

STY 

$0292 



E632 

84 

D3 


STY 

$D3 



E634 

84 

D4 


STY 

$D4 


Hochkommaflag rücksetzen 

E636 

A 5 

C9 


LDA 

$C9 



E638 

30 

ID 


BMI 

$E657 



E63A 

A6 

D6 


LDX 

$D6 



E63C 

20 

19 

E7 

JSR 

$E71 9 



E63F 

E4 

C9 


CPX 

$C9 



E641 

D0 

14 


BNE 

$E657 



E643 

D0 

12 


BNE 

$E657 
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E645 

A5 

CA 

LOA $CA 

1etz te Spalte 

E647 

85 

03 

STA $03 

in Spaltenzeiger bringen 

E649 

C5 

CB 

CUP $C8 

mit Index vergleichen 

E64B 

90 

0A 

BCC $E657 


E64D 

B0 

42 

BCS $E691 


***************************** 

Ein Zeichen vom Bildschirm holen 

E64F 

98 


TYA 


E650 

48 


PHA 


E651 

8A 


TXA 


E652 

48 


PHA 


E653 

A5 

D0 

LDA $00 

CR-Flag 

E655 

F0 

91 

BEQ $E5EB 

nein, dann zur Wartesch1 eife 

E657 

A4 

D3 

LDY $D3 

Spalte 

E659 

Bl 

Dl 

LDA ($01),Y 

Zeichen vom Bildschirm holen 

E65B 

EA 




E671 


.. EA 



E672 

85 

07 

STA $07 

und merken 

£674 

29 

3F 

AND #$3F 


E 6 7 6 

06 

07 

ASL $D7 


E678 

24 

07 

BIT $07 


E67A 

10 

02 

BPL $E67E 


E67C 

09 

80 

ORA #*80 

Bildschirmcode nach ASCII konvertieren 

E67E 

90 

04 

BCC $E6B4 


E680 

A6 

04 

LDX $04 


E682 

D0 

04 

BNE IE688 


E684 

70 

02 

BVS $E688 


E686 

09 

40 

ORA #$40 


E688 

E6 

03 

INC $D3 

Cursor eins weiter setzen 

E6SA 

20 

B8 E6 

JSR $E6B8 

auf Hochkomma testen 

E68D 

C4 

C8 

CPY $C8 

Cursor in letzter Spalte? 

E68F 

00 

17 

BNE IE6A8 


E691 

A9 

00 

LDA #$00 


E693 

85 

00 

STA $D0 

CR-Flag rücksetzen 

E695 

A9 

0D 

LDA #$0D 

'CR'-Code 

E697 

A6 

99 

LDX $99 


E699 

E0 

03 

CPX #$03 

Eingabe vom Bildschirm ? 

E69B 

F0 

06 

BEQ $E6A3 

ja 

E69D 

A6 

9A 

LDX $9A 


E69F 

E0 

03 

CPX #$03 

Ausgabe auf Bildschirm ? 

E6A1 

F0 

03 

BEQ $E6A6 

ja 

E6A3 

20 

42 E7 

JSR $E742 

Zeichen auf Bildschirm schreiben 

E6A6 

A9 

00 

LDA #$0D 

'CR'-Code 

E6A8 

85 

07 

STA $D7 


E6AA 

68 


PLA 


E6AB 

AA 


TAX 


E6AC 

68 


PLA 


E6AD 

A8 


TAY 


E6AE 

A5 

07 

LDA $07 

Bildschirmkode 

E6B0 

C9 

DE 

CUP #$DE 

mit Kode für Pi vergleichen 

E6B2 

00 

02 

BNE $E6B6 


E6B4 

A9 

FF 

LDA #$FF 

durch BASIC-Kode ersetzen 

E6B6 

18 


CLC 


E687 

60 


RTS 


***************************** 

auf Hochkomma testen 

E6B8 

C9 

22 

CMP #$22 

•»' 

E6BA 

00 

08 

BNE $E6C4 


E6BC 

A5 

D4 

LDA $04 


E6BE 

49 

01 

EOR #101 

Hochkominaf 1 ag umdrehen 
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E6C0 

85 

D4 


STA 

$D4 


E6C2 

A9 

22 


LDA 

#$22 

Kode wieder hersteilen 

E6C4 

60 



RTS 



*****#*##**#*#**##***#**#*#** 

druckendes Zeichen auf Bildschirm 

E6C5 

09 

40 


ORA 

#$40 


E6C7 

A6 

C7 


LDX 

$C7 


E6C9 

F0 

02 


BEQ 

$E6CD 

RVS-Modus ? 

E6CB 

09 

80 


ORA 

#$80 

ja, dann Bit 7 setzen 

E6CD 

A6 

D8 


LDX 

$D8 

Insert-Zäh1 er 

E6CF 

F0 

02 


BEQ 

$E6D3 


E6D1 

C6 

DB 


DEC 

$D8 


E6D3 

AE 

86 

02 

LDX 

$0286 

Farbcode 

E6D6 

20 

Al 

EA 

J SR 

$EAA1 

setzt Zeichen und Farbe 

E6D9 

20 

EA 

E6 

JSR 

$E6EA 

Tabelle für Zeilenanfänge aktualisieren 

E6DC 

68 



PLA 



E6DD 

A8 



TAY 



E6DE 

A5 

D8 


LDA 

$D8 

Insert-Zähler 

E6E0 

F0 

02 


BEQ 

$E6E4 

gleich null ? 

E6E2 

46 

D4 


LSR 

$D4 

Hochkommaflag rücksetzen 

E6E4 

68 



PLA 



E6E5 

AA 



TAX 



E6E6 

68 



PLA 



E6E7 

18 



CLC 



E6E8 

58 



CLI 



E6E9 

60 



RTS 



***************************** 

MSB für Zeilenanfänge neu berechnen 

E6EA 

20 

FA 

E8 

JSR 

$E8FA 


E6ED 

E6 

D3 


INC 

$D3 


E6EF 

A5 

D5 


LDA 

$D5 


E6F1 

C5 

D3 


CMP 

$D3 


E6F3 

80 

37 


BCS 

$E72C 


E6F5 

C9 

57 


CMP 

#$57 

88 Zeichen? (4-fach Zeile) 

E6F7 

F0 

2A 


BEQ 

$E723 


E6F9 

AD 

92 

02 

LDA 

$0292 


E6FC 

F0 

03 


BEQ 

$E701 


E6FE 

4C 

F0 

E9 

JHP 

$E9F0 


E701 

A6 

D6 


LDX 

$D6 


E703 

E0 

17 


CPX 

#$17 

Cursor in letzter Zeile? 

E705 

90 

07 


BCC 

IE70E 


E707 

20 

75 

E9 

JSR 

$E975 

Scrol1ing 

E70A 

C6 

D6 


DEC 

$D6 

Zeilenummer erniedrigen 

E70C 

A6 

D6 


LDX 

$D6 


E70E 

16 

D9 


ASL 

$D9, X 


E710 

56 

D9 


LSR 

$D9, X 


E7I2 

4C 

5B 

ED 

JMP 

$ED5B 

zurück nach $E715 

E715 

69 

16 


ADC 

#$16 

22 addieren (eine Zeile) 

E717 

85 

D5 


STA 

$D5 


E719 

B5 

D9 


LDA 

$D9, X 


E71B 

30 

03 


BMI 

$E720 


E71D 

CA 



DEX 



E71E 

D0 

F9 


BNE 

IE719 


E720 

4C 

7E 

EA 

JMP 

$EA7E 

Wert aus Tabelle holen 

E723 

C6 

D6 


DEC 

$D6 


E725 

20 

C3 

E8 

JSR 

IE8C3 


E728 

A9 

00 


LDA 

#$00 


E72A 

85 

D3 


STA 

$D3 


E72C 

60 



RTS 
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***************************** 

Rückschritt in vorhergehende 

Zeile 

E72D 

A6 

D6 


LDX 

*D6 



E72F 

D0 

06 


BNE 

*E737 



E731 

86 

D3 


STX 

*D3 



E733 

68 



PLA 




E734 

68 



PLA 




E735 

D0 

A5 


BNE 

*E6DC 



E737 

CA 



DEX 




E738 

86 

D6 


STX 

*D6 



E73A 

20 

87 

E5 

JSR 

IE 587 



E73D 

A4 

D5 


LDY 

*D5 



E73F 

84 

D3 


STY 

*D3 



E741 

60 



RTS 




***************************** 

Ausgabe eines Zeichen auf Bildschir 

E742 

48 



PHA 




E743 

85 

D7 


STA 

*D7 



E745 

8A 



TXA 


A, X, Y retten, Zeichen nach 

*D7 

E746 

48 



PHA 




E747 

98 



TYA 




E748 

48 



PHA 




E749 

A9 

00 


LDA 

#100 



E74B 

85 

D0 


STA 

*D0 

'CR'-Flag rücksetzen 


E74D 

A4 

D3 


LDY 

*D3 

Cursorspalte 


E74F 

A5 

D7 


LDA 

$D7 

Zeichen 


E751 

10 

03 


BPL 

IE756 



E753 

4C 

00 

E8 

JHP 

IE800 

Kode ist größer *7F 


E756 

C9 

0D 


CMP 

#*0D 

'CR' ? 


E758 

D0 

03 


BNE 

*E75D 



E75A 

4C 

D8 

E8 

JHP 

*E8D8 

ja , CR' ausgeben 


E75D 

C9 

20 


CMP 

#*20 


E75F 

9ß 

10 


BCC 

*E77 1 

Kontrol1zeichen ? 


E761 

C9 

60 


CMP 

#*60 



E763 

90 

04 


BCC 

*E769 



E765 

29 

DF 


AND 

#*DF 



E767 

D0 

02 


BNE 

*E76B 



E769 

29 

3F 


AND 

#*3F 

Zeichen in Bi 1dschirmcode wandeln 

E76B 

20 

B8 

E6 

JSR 

*E6B8 

auf Hochkomma testen 


E76E 

4C 

C7 

E6 

J MP 

*E6C7 

und ausgeben 


***************************** 

Steuerzeichen verarbeiten 


E771 

A6 

D8 


LDX 

ID8 



E773 

F0 

03 


BEQ 

*E778 



E775 

4C 

CB 

E6 

JMP 

* E6CB 



E778 

09 

14 


CMP 

#$14 

'DEL' 


E77A 

D0 

2E 


BNE 

*E7AA 

nein? 


E77C 

98 



TYA 


Cursor in Spalte Null? 


E77D 

D0 

06 


BNE 

*E785 

nein? 


E77F 

20 

2D 

E7 

JSR 

*E72D 

Rückschritt in vor her gehende 

Zeile 

E782 

4C 

9F 

E7 

JMP 

*E79F 


E785 

20 

E8 

E8 

JSR 

*E8E8 



E7BB 

83 



DEY 




E789 

84 

D3 


STY 

*D3 



E78B 

20 

B2 

EA 

JSR 

IEAB2 

Zeiger auf Farb-RAM berechnen 


E78E 

C8 



I NY 



E78F 

Bl 

Dl 


LDA 

( *D 1) , Y 



E79 1 

88 



DEY 




E792 

91 

Dl 


STA 

(*D 1) , Y 



E794 

C8 



I NY 


Zeichen hinter Cursor nach links 
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E795 

Bl 

F3 


LDA 

($F3>, 

,Y 


E797 

88 



DEY 




E798 

91 

F3 


STA 

($F3), 

t Y 


E79A 

C8 



INY 




E79B 

C4 

D5 


CPY 

$D5 



E79D 

D0 

EF 


BNE 

$E7SE 



E79F 

A9 

20 


LDA 

#$20 



E7A1 

91 

Dl 


STA 

< $D 1), 

,Y 

letztes Zeichen durch Blank ersetzen 

E7A3 

AD 

86 

02 

LDA 

$0286 



E7A6 

91 

F3 


STA 

($F3), 

,Y 

und Farbe setzen 

E7A8 

10 

4D 


BPL 

$E7F7 


fertig 

E7AA 

A6 

D4 


LDX 

$D4 


Cur sorz ei 1e 

E7AC 

F0 

03 


BEQ 

$E7B 1 



E7AE 

4C 

CB 

E6 

JMP 

$E6CB 


ungleich null ? 

E7B1 

C9 

12 


CMP 

#$12 


'RVS ON 

E7B3 

D0 

02 


BNE 

$E7B7 



E7B5 

85 

C7 


STA 

$C7 


RVS-Flag setzen 

E7B7 

C9 

13 


CMP 

#$13 


'HOME' 

E7B9 

D0 

03 


BNE 

$E7BE 



E7BB 

20 

81 

E5 

JSR 

$E581 


Cursor HOME 

E7BE 

C9 

ID 


CMP 

#$ 1D 


'Cursor RIGHT' 

E7C0 

D0 

17 


BNE 

$E7D9 


nein? 

E7C2 

CS 



INY 




E7C3 

20 

FA 

E8 

JSR 

$E8FA 



E7C6 

84 

D3 


STY 

$D3 



E7C8 

88 



DEY 




E7C9 

C4 

D5 


CPY 

$D5 



E7CB 

90 

09 


BCC 

$E7D6 



E7CD 

C6 

D6 


DEC 

$D6 



E7CF 

20 

C3 

E8 

JSR 

$E8C3 



E7D2 

A0 

00 


LDY 

#$00 



E7D4 

84 

D3 


STY 

$D3 


Cursorspalte speichern 

E7D6 

4C 

DC 

E6 

JMP 

$E6DC 


fertig 

E7D9 

C9 

11 


CMP 

#$11 


'Cursor DOWN' 

E7DB 

D0 

10 


BNE 

IE7FA 



E7DD 

18 



CLC 




E7DE 

98 



TYA 




E7DF 

69 

16 


ADC 

#116 


Cursorspalte + 22 = eine Zeile tiefer 

E7E1 

A8 



TAY 




E7E2 

E6 

D6 


INC 

$D6 


Cursorzeile erhöhen 

E7E4 

C5 

D5 


CMP 

$D5 



E7E6 

90 

EC 


BCC 

$E7D4 


Cursorspalte mit Zeichenzahl vergleichen 

E7E8 

F0 

EA 


BEQ 

$E7D4 


kleiner oder gleich? 

E7EA 

C6 

D6 


DEC 

$D6 


Cursorzeile erniedrigen 

E7EC 

E9 

16 


SBC 

#$16 


Cursorspalte - 22 

E7EE 

90 

04 


BCC 

$E7F4 



E7F0 

85 

D3 


STA 

$D3 



E7F2 

D0 

F8 


BNE 

$E7EC 



E7F4 

20 

C3 

E8 

JSR 

$E8C3 



E7F7 

4C 

DC 

E6 

JMP 

$E6DC 


fertig 

E7FA 

20 

12 

E9 

JSR 

$E912 


prüft auf Farbcode 

E7FD 

4C 

21 

ED 

JMP 

$ED21 


prüft auf weitere Sonderzei eben 

E800 

EA 

... 

. 

NOP 




ES 14 

.. . 

. EA 

NOP 




E815 

29 

7F 


AND 

#$7F 


Kode größer 127, Bit 7 wird gelöscht 

E817 

C9 

7F 


CMP 

#$7F 


BASIC-Kode für PI ? 

E819 

D0 

02 


BNE 

IE81D 


nein? 

E81B 

A9 

5E 


LDA 

#$5E 


Bi 1dschirmkode für PI $5E 

£81D 

EA 

EA 

EA EA 

EA EA 


NOP' s 
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E823 

C9 

20 

CMP 

#$20 

E825 

90 

03 

BCC 

$E82A 

E827 

4C 

C5 E6 

JMP 

$E6C5 

E82A 

C9 

0D 

CMP 

#$0D 

E82C 

D0 

03 

BNE 

$E831 

E82E 

4C 

D8 ES 

JMP 

$ E8D8 

E831 

A6 

D4 

LDX 

$D4 

E833 

D0 

3F 

BNE 

$E874 

E835 

C9 

14 

CMP 

#$14 

E837 

D0 

37 

BNE 

$E870 

E839 

A4 

D5 

LDY 

$D5 

E83B 

Bl 

Dl 

LDA 

($D 1) , Y 

E83D 

09 

20 

CMP 

#$20 

E83F 

D0 

04 

BNE 

IE845 

E841 

C4 

D3 

CPY 

$D3 

E843 

D0 

07 

BNE 

$E84C 

E845 

C0 

57 

CPY 

#$57 

E847 

F0 

24 

BEQ 

$E86D 

E849 

20 

EE E9 

JSR 

$E9EE 

E84C 

A4 

D5 

LDY 

$D5 

E84E 

20 

B2 EA 

JSR 

$EAB2 

E851 

88 


DEY 


E852 

Bl 

Dl 

LDA 

($D1) , Y 

E854 

CB 


INY 


E855 

91 

Dl 

STA 

( $D 1 ) ,Y 

E857 

88 


DEY 


E858 

Bl 

F3 

LDA 

( $F3),Y 

E85A 

CB 


INY 


E85B 

91 

F3 

STA 

($F3),Y 

E85D 

88 


DEY 


EB5E 

C4 

D3 

CPY 

$D3 

E860 

D0 

EF 

BNE 

$E851 

E 8 62 

A9 

20 

LDA 

#$20 

E864 

91 

Dl 

STA 

($D 1) , Y 

E866 

AD 

86 02 

LDA 

$0286 

E869 

91 

F3 

STA 

($F3),Y 

E86B 

E6 

D8 

INC 

$D8 

E86D 

4C 

DC E6 

JMP 

$E6DC 

E870 

A6 

D8 

LDX 

$D8 

E872 

F0 

05 

BEQ 

$E879 

E874 

09 

40 

ORA 

#$40 

E876 

4C 

CB E6 

JMP 

$E6CB 

E879 

C9 

11 

CMP 

#$11 

E87B 

D0 

16 

BNE 

$E893 

E87D 

A h 

D6 

LDX 

$D6 

E87F 

F0 

37 

BEQ 

$E8B8 

E881 

C6 

D6 

DEC 

$D6 

E883 

A5 

D3 

LDA 

$D3 

E885 

38 


SEC 


E886 

E9 

16 

SBC 

#$16 

E888 

90 

04 

BCC 

$E88E 

E88A 

85 

D3 

STA 

$D3 

E88C 

10 

2A 

BPL 

$E8B8 

E88E 

20 

87 E5 

JSR 

$E587 

E891 

D0 

25 

BNE 

$E8B8 

E893 

09 

12 

CMP 

#$12 

E895 

D0 

04 

BNE 

$E89B 

E897 

A9 

00 

LDA 

#$00 


größer $A0, druckendes Zeichen 
Shift 'CR' 

’CR’ ausgeben 

Hochkommamodus? 

'INST' Zeichen einfügen 

Zeichen pro Zeile 
letztes Zeichen in Zeile 
Blank ? 
nei n? 

Cursor in letzter Spalte? 
nein? 

Cursor in Pos. 87 (Zeile voll) ? 
ja, dann fertig 

einfügen einer Fortsetzungszeile 
Zeiger auf Farb-RAM berechnen 


die Zeichen ab Cursorposition 
um eine Stelle nach rechts 


$ D1/$ D 2 Video-RAM 
$F3/$F4 Farb-RAM 


an augenblickliche Position 
Blank einfügen 

Farbe setzen 
fertig 


'Cursor UP' 


minus 22 gleich eine Zeile 


'RVS OFF' 
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EB99 

85 

C7 


STA 

$C7 

E89B 

C9 

ID 


CMP 

#$ 1D 

ES9D 

D0 

12 


BNE 

$E8B1 

E89F 

98 



TYA 


E8A0 

F0 

09 


BEß 

IE8AB 

E8A2 

20 

E8 

E8 

JSR 

$E8EB 

EBA5 

88 



DEY 


E8A6 

84 

D3 


STY 

$D3 

E8A8 

4C 

DC 

E6 

JMP 

$E6DC 

E8AB 

20 

2D 

E7 

JSR 

$E72D 

E8AE 

4C 

DC 

E6 

JMP 

IE6DC 

E8B1 

C9 

13 


CMP 

#$13 

E8B3 

00 

06 


BNE 

$EBBB 

E8B5 

20 

5F 

E5 

JSR 

$E55F 

E8B8 

4C 

DC 

E6 

JMP 

$E6DC 

E8BB 

09 

80 


QRA 

#$80 

E8BD 

20 

12 

E9 

JSR 

$E9 12 

EBCß 

4C 

30 

ED 

JMP 

IED30 

***************************** 

E8C3 

46 

C9 


LSR 

$C9 

E8C5 

A6 

D6 


LDX 

$D6 

E8C7 

E8 



I NX 


E8C8 

E0 

17 


CPX 

#$17 

E8CA 

D0 

03 


BNE 

$E8CF 

E8CC 

20 

75 

E9 

JSR 

$E975 

E8CF 

B5 

D9 


LDA 

$D9, X 

E8D1 

10 

F4 


BPL 

$£8C7 

E8D3 

86 

D6 


STX 

$D6 

E8D5 

4C 

87 

E5 

JMP 

$E587 

***************************** 

E8D8 

A2 

00 


LDX 

#$00 

EBDA 

86 

D8 


STX 

$D8 

E8DC 

86 

C7 


STX 

$C7 

EBBE 

86 

D4 


STX 

$D4 

E8E0 

86 

D3 


STX 

$D3 

E8E2 

20 

C3 

ES 

JSR 

$E8C3 

E8E5 

4C 

DC 

E6 

JMP 

$E6DC 

************* ******** ******** 

ESE8 

A2 

04 


LDX 

#$04 

E8EA 

A9 

00 


LDA 

#$00 

E8EC 

C5 

D3 


CMP 

$D3 

E8EE 

F0 

07 


BEQ 

$E8F7 

E8F0 

18 



CLC 


E8F1 

69 

16 


ADC 

#$16 

E8F3 

CA 



DEX 


EBF4 

D0 

F6 


BNE 

IE8EC 

EBF6 

60 



RTS 


E8F7 

C6 

D6 


DEC 

$D6 

E8F9 

60 



RTS 


***************************** 

E8FA 

A2 

04 


LDX 

#$04 

E8FC 

A9 

15 


LDA 

#$15 

E8FE 

C5 

D3 


CMP 

$D3 


RVS-Flag loeschen 
'Cursor LEFT' 


Rückschritt in vorhergehende Zeile 


achtes Bit wiederherstellen 

prüft auf Farbcode 

prüft auf weitere Sander 2 eichen 


Zei1envarschub 

aktuelle Zeile 

Cursor in letzter Zeile? 
nei n? 

Scrol1ing 


'CR' ausgeben 

Insert-Zähler 
RVS-Flag 
Hoch k oromaf1ag 
Cursorspalte 


für Cursor LEFT 


für Cursor RIGHT 


' CLR SCREEN' 
Bildschirm löschen 
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E900 

F0 

07 


BEQ $E909 

E902 

18 



CLC 

E903 

69 

16 


ADC #$16 

E905 

CA 



DEX 

E906 

D0 

F6 


BNE $E8FE 

E90B 

60 



RTS 

E909 

A6 

D6 


LDX $D6 

E90B 

E0 

17 


CPX #$17 

E90D 

F0 

02 


BEQ $E911 

E90F 

E6 

D6 


INC $D6 

E911 

60 



RTS 

***************************** 

E912 

A2 

07 


LDX #$07 

E914 

DD 

21 

E9 

CMP $E921, X 

E91 7 

F0 

04 


BEQ $E91D 

E919 

CA 



DEX 

E91A 

10 

F8 


BPL IE914 

E91C 

60 



RTS 

E91D 

8E 

86 

02 

STX $0286 

E920 

60 



RTS 

***************************** 

E921 

90 

05 

9E 

EF Al DF A6 El 

E92E 

Bl 

E2 



E930 

B2 

E3 

B3 

E4 B4 E5 B5 E6 

E938 

B6 

E7 

B7 

E8 B8 E9 B9 FA 

E940 

BA 

FB 

BB 

FC BC EC BD FE 

E94B 

BE 

84 

BF 

F7 C0 F8 DB F9 

E950 

DD 

EA 

DE 

5E E0 5B El 5D 

E958 

E2 

40 

B0 

61 Bl 78 DB 79 

E960 

DD 

66 

B6 

77 C0 70 F0 71 

E96B 

Fl 

72 

F2 

73 F3 74 F4 75 

E970 

F5 

76 

F6 

7D FD 

****************************** 

E975 

A5 

AC 


LDA $AC 

E977 

48 



PHA 

E978 

A5 

AD 


LDA $AD 

E97A 

48 



PHA 

E97B 

A5 

AE 


LDA $AE 

E97D 

48 



PHA 

E97E 

A5 

AF 


LDA $AF 

E980 

48 



PHA 

E9B1 

A2 

FF 


LDX #$FF 

E9B3 

C6 

D6 


DEC $D6 

E985 

C6 

C9 


DEC $C9 

E987 

C6 

F2 


DEC $F2 

E989 

E8 



I NX 

E98A 

20 

7E 

EA 

JSR $EA7E 

E98D 

E0 

16 


CPX #$16 

E98F 

B0 

0C 


BCS $E99D 

E99 1 

BD 

FE 

ED 

LDA $EDFE,X 

E994 

85 

AC 


STA $AC 

E996 

B5 

DA 


LDA $DA,X 

E998 

20 

56 

EA 

JSR $EA56 

E99B 

30 

EC 


BMI $E989 

E99D 

20 

8D 

EA 

JSR $EA8D 

E9A0 

A2 

00 


LDX #$00 

E9A2 

B5 

D9 


LDA $D9,X 


prüft auf Farbkode 
B Farbkodes 

mit Tabelle vergleichen 


Farbkode setzen 
Tabelle der Farbkodes 


Scrolling - Bildschirm eine Zeile hoch 


Zeile nach oben schieben 
Bildschirmzeile loeschen 
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E9A4 

29 

7F 

AND #$7F 


E9A6 

B4 

DA 

LDY $DA 


E9A8 

10 

02 

BPL $E9 AC 


E9AA 

09 

80 

ORA #$80 


E9AC 

95 

D9 

STA $D9, X 


E9AE 

ES 


IN X 


E9AF 

E0 

16 

CPX #$16 


E9B1 

D0 

EF 

BNE $E9A2 


E9B3 

A5 

EF 

LDA $EF 


E9B5 

09 

80 

ORA #$80 


E9B7 

85 

EF 

STA $EF 


E9B9 

A5 

D9 

LDA $D9 


E9BB 

10 

C4 

BPL $E98 1 


E9BD 

£6 

D6 

INC $D6 


E9BF 

E6 

F2 

INC $F2 


E9C1 

A9 

FB 

LDA #$FB 


E9C3 

8D 

20 91 

STA $9120 


E9C6 

AD 

21 91 

LDA $9121 


E9C9 

C9 

FE 

CMP #$FE 

CTRL-Taste gedrückt? 

E9CB 

08 


PHP 

E9CC 

A9 

F7 

LDA #$F7 


E9CE 

8D 

20 91 

STA $9120 


E9D1 

28 


PLP 


E9D2 

D0 

0B 

BNE $E9DF 

nein, dann fertig 

E9D4 

A0 

00 

LDY #$00 


E9D6 

EA 


NOF 


E9D7 

CA 


DEX 


E9D8 

D0 

FC 

BNE $E9D6 

V'er zögerungsschleife 

E9DA 

88 


DEY 

E9DB 

D0 

F9 

BNE $E9D6 


E9DD 

84 

C6 

STY $C6 

Anzahl der gedrückten Tasten = Null 

E9DF 

A6 

D6 

LDX $D6 

Zei1ennummer 

E9E1 

68 


PLA 


E9E2 

85 

AF 

STA $AF 


E9E4 

68 


PLA 


E9E5 

85 

AE 

STA $AE 


E9E7 

68 


PLA 


E9E8 

85 

AD 

STA $AD 


E9EA 

68 


PLA 


E9EB 

85 

AC 

STA $AC 


E9ED 

60 


RTS 


***************************** 

Einfügen einer Fortsetzungszeile 

E9EE 

A6 

D6 

LDX $D6 

E9F0 

E8 


I NX 


E9F1 

B5 

D9 

LDA $D9,X 


E9F3 

10 

FB 

BPL $E9F0 


E9F5 

86 

F2 

STX $F2 


E9F7 

E0 

16 

CPX #$16 


E9F9 

F0 

0D 

BEQ $EA06 


E9FB 

90 

0B 

BCC $EA08 


E9FD 

20 

75 E9 

JSR $E975 

Scrolling 

EA00 

A6 

F2 

LDX $F2 

EA02 

CA 


DEX 


EA03 

C6 

D6 

DEC $D6 


EA05 

4C 

0E E7 

JMP $E70E 


EA08 

A5 

AC 

LDA $AC 


EA0A 

48 


PHA 


EA0B 

A5 

AD 

LDA $AD 
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EA0D 

48 


PHA 



EA0E 

A5 

AE 

LDA 

$AE 


EA10 

48 


PHA 



EA11 

A5 

AF 

LDA 

$AF 


EA 13 

48 


PHA 



EA 14 

A2 

17 

LDX 

#$17 


EAi 6 

CA 


DEX 



EA17 

20 

7E EA 

JSR 

$EA7E 


EA1A 

E4 

F2 

CPX 

$F2 


EAI C 

90 

0E 

BCC 

$EA2C 


EA 1E 

F0 

0C 

BEQ 

$EA2C 


EA20 

BD 

FC ED 

LDA 

$EDFC,X 


EA23 

85 

AC 

STA 

$AC 


EA25 

B5 

D8 

LDA 

$D8, X 


EA27 

20 

56 EA 

JSR 

$EA56 

Zeile nach oben schieben 

EA2A 

30 

EA 

BMI 

$EA16 


EA2C 

20 

3D EA 

JSR 

$EA8D 

Bildschirmzeile löschen 

EA2F 

A2 

15 

LDX 

#$15 


EA31 

E4 

F2 

CPX 

$F2 


EA33 

90 

0F 

BCC 

IEA44 


EA35 

B5 

DA 

LDA 

$DA, X 


EA37 

29 

7F 

AND 

#$7F 


EA39 

B4 

D9 

LDY 

$D9 


EA3B 

10 

02 

BPL 

$EA3F 


EA3D 

09 

80 

ORA 

#$80 


EA3F 

95 

DA 

STA 

IDA, X 


EA4 1 

CA 


DEX 



EA42 

D0 

ED 

BNE 

IEA31 


EA44 

A6 

F2 

LDX 

$F2 


EA46 

20 

0E E7 

JSR 

IE70E 


EA49 

68 


PLA 



EA4A 

85 

AF 

STA 

$AF 


EA4C 

68 


PLA 



EA4D 

85 

AE 

STA 

$AE 


EA4F 

68 


PLA 



EA50 

85 

AD 

STA 

$AD 


EA52 

68 


PLA 



EA53 

85 

AC 

STA 

$AC 


EA55 

60 


RTS 



***************************** 

Bildschirmzeile um eins nach oben schiebei 

EA56 

29 

03 

AND 

#$03 


EA58 

0D 

88 02 

ORA 

$0288 

Page Video-RAM 

EA5B 

85 

AD 

STA 

$AD 

A enthalt MSB des Zei 1 enanfangs 

EA5D 

20 

6E EA 

JSR 

$EA6E 

EA60 

A0 

15 

LDY 

#$15 

(LDA $DA,X X=Zei1ennuromer ) 

EA62 

Bl 

AC 

LDA 

($AC) ,Y 


EA64 

91 

Dl 

STA 

($D 1) ,Y 

Zeichen 

EA66 

Bl 

AE 

LDA 

($AE) , Y 


EA68 

91 

F3 

STA 

($F3),Y 

und Farbe verschieben 

EA6A 

88 


DEY 



EA6B 

10 

F5 

BPL 

$EA62 


EA6D 

60 


RTS 



***************************** 

Zeiger auf Bi 1dschirmposition berechnen 

EA6E 

20 

B2 EA 

JSR 

IEAB2 

Zeiger auf Farb-RAM berechnen 

EA71 

A 5 

AC 

LDA 

$ AC 


EA73 

85 

AE 

STA 

$AE 


EA75 

A 5 

AD 

LDA 

$AD 


EA77 

29 

03 

AND 

#$03 
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EA79 09 94 ORA #$94 

EA7B 85 AF STA $AF 

EA7D 60 RTS 

***************************** t_SB fü r Zeilenanfänge auf Tabelle holen 

EA7E BDFDED LDA $EDFD f X X enthält Zei1ennummer 

EA81 85 Dl STA $D1 

EA83 B5 D9 LDA $D9,X 

EA85 29 03 AND #$03 

EA87 0D 88 02 ORA $0288 

EA8A 85 D2 STA $D2 

EA8C 60 RTS 

***************************** eine Bl 1dschirrazei 1 e löschen 
EA8D A0 15 LDY #$15 

EA8F 20 7E EA JSR $EA7E Nummer der Zeile in X 

EA92 20 B2 EA JSR $EAB2 Zeiger auf Farb-RAM berechnen 

EA95 A9 20 LDA #$20 

EA97 91 D1 STA ($D1),Y 

EA99 A9 01 LDA #$01 

EA9B 91 F3 STA ($F3>,Y 

EA9D 88 DEY 

EA9E 10 F5 BPL $EA95 

EAA0 60 RTS 

***************************** 5 etzt Zeichen <A) und Farbe (X) auf Bildschirm 
EAA1 A8 TAY 

EAA2 A9 02 LDA #$02 

EAA4 85 CD STA $CD 

EAA6 20 B2 EA JSR $EAB2 Zeiger auf Farb-RAM berechnen 

EAA9 98 TYA 

EAAA A4 D3 LDY $D3 

EAAC 91 Dl STA ($Dl) f Y Zeichen setzen 

EAAE 8A TXA 

EAAF 91 F3 STA ($F3),Y Farbe setzen 

EAB1 60 RTS 

***************************** Zeiger auf Farb-RAM berechnen 
EAB2 A5 Dl LDA $D1 $D1/$D2 Zeiger auf Video-RAM 

EAB4 85 F3 STA $F3 

EAB6 A5 D2 LDA $D2 $F3/$F4 Zeiger auf Farb-RAM 

EAB8 29 03 AND #$03 

EABA 09 94 ORA #$94 

EABC 85 F4 STA $F4 

EABE 60 RTS 

***************************** iNTERRUFT-ROUTINE 


EABF 

20 

EA 

FF 

JSR 

$FFEA 

Zeit weiter setzen 

EAC2 

A5 

CC 


LDA 

$CC 

Blinkflag für Cursor gesetzt? 

EAC4 

D0 

29 


BNE 

$EAEF 

ja? 

EAC6 

C6 

CD 


DEC 

$CD 

Blinkzähler erniedrigen 

EAC8 

D0 

25 


BNE 

$EAEF 

ungleich null ? 

EACA 

A9 

14 


LDA 

#$14 


EACC 

85 

CD 


STA 

$CD 

Zähler auf Anfangswert 20 setzen 

EACE 

A4 

D3 


LDY 

$D3 

Spaltenz eiger 

EAD0 

46 

CF 


LSR 

$CF 

Blinkschalter 0 dann C=1 

EAD2 

AE 

87 

02 

LDX 

$0287 

Farbe unter Cursor 

EAD5 

Bl 

Dl 


LDA 

< $D i) , Y 

Zeichen unter Cursor 

EAD7 

B0 

11 


BCS 

$EAEA 

war Blinkschalter ein ? 

EAD9 

E6 

CF 


INC 

$CF 

Blinkschalter einschalten 

EADB 

85 

CE 


STA 

$CE 

Zeichen unter Cursor merken 
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EADD 

20 

B 2 

EA 

JSR 

$EAB2 

EAEß 

Bl 

F3 


LDA 

<$F3) ,Y 

EAE2 

8D 

87 

02 

STA 

$0287 

EAE5 

AE 

86 

02 

LDX 

$0286 

EAE8 

A5 

CE 


LDA 

$CE 

EAEA 

49 

80 


EOR 

#$80 

EAEC 

20 

AA 

EA 

JSR 

$EAAA 

EAEF 

AD 

1F 

91 

LDA 

$9 11F 

EAF2 

29 

40 


AND 

#$40 

EAF4 

F0 

0 B 


BEQ 

$EBß 1 

EAF6 

A0 

00 


LDY 

#$00 

EAF8 

84 

Cß 


STY 

$C0 

EAFA 

AD 

IC 

91 

LDA 

$91 IC 

EAFD 

09 

02 


ORA 

#$02 

EAFF 

D0 

09 


BNE 

$EB0A 

EB01 

A5 

C0 


LDA 

$C0 

EB03 

D0 

0D 


BNE 

IEB12 

EB05 

AD 

IC 

91 

LDA 

$9 11C 

EB08 

29 

FD 


AND 

#$FD 

EB0A 

2C 

IE 

91 

BIT 

$9 11E 

EB0D 

70 

03 


BVS 

$EB 1 2 

EBßF 

8D 

IC 

91 

STA 

$911C 

EB12 

20 

IE 

EB 

JSR 

$EB1E 

EB1 5 

2C 

24 

91 

BIT 

$9124 

EB 18 

68 



FLA 


EB 19 

A8 



TAY 


EB 1 A 

68 



FLA 


EB1B 

AA 



TAX 


EB1C 

68 



FLA 


EB1D 

40 



RTI 



*******#***#**##*#####*****#* 


EB1E 

A9 

ßß 


LDA 

#$00 

EB20 

8D 

8D 

02 

STA 

$028D 

EB23 

Aß 

40 


LDY 

#$40 

EB25 

84 

CB 


STY 

$CB 

EB27 

BD 

20 

91 

STA 

$9120 

EB2A 

AE 

21 

91 

LDX 

$9121 

EB2D 

E0 

FF 


CRX 

#$FF 

EB2F 

F 0 

5E 


BEQ 

IEB8F 

EB31 

A9 

FE 


LDA 

#$FE 

EB33 

8D 

20 

91 

STA 

$9120 

EB36 

Aß 

00 


LDY 

#$00 

EB3B 

A9 

5E 


LDA 

#$5E 

EB3A 

85 

F5 


STA 

$F5 

EB3C 

A9 

EC 


LDA 

#$EC 

EB3E 

85 

F6 


STA 

$F6 

EB40 

A2 

08 


LDX 

#$08 

EB42 

AD 

21 

91 

LDA 

$9121 

EB45 

CD 

21 

91 

CMP 

$9121 

EB48 

D0 

F6 


BNE 

$EB40 

EB4A 

4 A 



LSR 


EB4B 

B0 

16 


BCS 

$EB63 

EB4D 

48 



PHA 


EB4E 

Bl 

F 5 


LDA 

<$F5) , Y 

EB50 

C9 

05 


CMP 

#$05 

EB52 

B0 

0C 


BCS 

$EB60 

EB 54 

C9 

03 


CMP 

#$03 

EB56 

F 0 

08 


BEQ 

$EB60 

EB 58 

0D 

8D 

02 

ORA 

$02BD 


Zeiger auf Farb-RAM berechnen 
Farbcode holen 
und merken 

Farbcode unter Cursor 
Zeichen unter Cursor 
RVS-Bit umdrehen 
Zeichen und Farbe setzen 


Shift/CTRL-Flag rücksetzen 
140 gleich keine Taste gedrückt 
Kode für gedrückte Taste 


Zeiger $F5/$F6 auf Tabelle 1,IEC5E 


8 flatrixzei 1 en 

Ta Statur-Decoder-Ausgang 

entprel1en 

Bits nacheinander ins Carry schieben 
'1' gleich nicht gedrückt 

ASClI-Code aus Tabelle holen 

größer gleich 5 

' STOF ' -Kode ? 


keine Taste gedrückt? 
dann fertig 


Recorder-Taste gedrückt ? 
Recorder-Flag setzen 
Recorder-Motor aus 

Recorder-Motor ein 

Tastatur-Abfrage 


T astaturabfrage 
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EB5B 

BD 

8D 

02 

STA $0280 

Shift/CTRL-Flaq 

EB5E 

10 

02 


BFL $EB62 


EB60 

84 

CB 


STY $CB 

Nummer der Taste merken 

EB62 

68 



PLA 


EB63 

08 



I NY 


EB64 

00 

41 


CF’Y #$41 

größer $40 

EB66 

B0 

09 


BGS $EB71 


EB68 

CA 



DE X 


EB69 

D0 

DF 


BNE $EB4A 

nächste Matrix-Spalte 

EB6B 

38 



SEC 


EB6C 

2E 

20 

91 

ROL $9120 


EB6F 

D0 

CF 


BNE IEB40 


EB71 

60 

8F 

02 

JMP ($028F) 

JMP IEBDC setzt Zeiger auf Kodetabelle 

EB74 

A4 

CB 


LOY $CB 

Nummer der Taste 

EB76 

Bl 

F5 


LDA <$F5),Y 

ASCII-Wert aus Tabelle holen 

EB78 

AA 



TAX 


EB79 

04 

05 


CPY $05 

mit letzter Taste vergleichen 

EB7B 

F0 

07 


BEG $EBB4 


EB7D 

A0 

10 


LDY #$10 


EB7F 

80 

BC 

02 

STY $0280 

Repeat-Verzcgerungszähler 

EB82 

D0 

36 


BNE IEBBA 


EBB4 

29 

7F 


AND #$7F 

Bit 7 löschen 

EBS6 

20 

8A 

02 

BIT $028A 

Repeat-Funkticn für alle Tasten ? 

EB89 

30 

16 


BMI $EBA1 

Bit 7 gesetzt, dann alle Tasten wiederholen 

EB8B 

70 

49 


BVS $EBD6 

Bit 6 gesetzt, dann ignorieren 

EB8D 

09 

7F 


CMP #$7F 

nur folgende Tasten wiederholen 

EB8F 

F0 

29 


BEQ $EBBA 


EB91 

09 

14 


CMP #$14 

'DEL' 

EB93 

F0 

0C 


BEG $EBA1 


EB95 

09 

20 


CMP #$20 

Blank 

EB97 

F0 

0B 


BEQ $EBA1 


EB99 

09 

ID 


CMP #$1D 

Cursor RIGHT, LEFT 

EB9B 

Fß 

04 


BEG $EBA1 


EB9D 

09 

11 


CMP #$11 

Cursor DOWN, UP 

EB9F 

00 

35 


BNE $EBD6 


EBA1 

AC 

8C 

02 

LDY $02SC 

Repeatverzögerungszähler 

EBA4 

F0 

05 


BEQ $EBAB 


EBA6 

CE 

80 

02 

DEC $0280 

runterzählen 

EBA9 

D0 

2B 


BNE IEBD6 


EBAB 

CE 

8B 

02 

DEC $028B 

Repeatgeschwindigkeitszähler 

EBAE 

00 

26 


BNE IEBD6 


EBBß 

A0 

04 


LDY #$04 


EBB2 

BC 

8B 

02 

STY $028B 

Zähler neu setzen 

EBB5 

A4 

06 


LDY $C6 

Anzahl der Zeichen im Tastatur puff er 

EBB7 

88 



DEY 


EBB8 

10 

IC 


BPL $EBD6 

mehr als ein Zeichen im Puffer, dann ignorieren 

EBBA 

A4 

CB 


LDY $CB 


EBBC 

84 

05 


STY $05 


EBBE 

AC 

8D 

02 

LDY $028D 


EBC1 

80 

8E 

02 

STY $028E 


EBC4 

E0 

FF 


CPX #$FF 

Tastaturkode ungültig ? 

EBC6 

F0 

0E 


BEQ IEBD6 

ja, dann ignorieren 

EBC8 

8A 



TXA 


EBC9 

A6 

06 


LDX IC6 

Anzahl der gedrückten Tasten 

EBCB 

EC 

89 

02 

CPX $0289 

mit Höchstzahl vergleichen 

EBCE 

B0 

06 


BGS $EBD6 

größer? 

EBD0 

90 

77 

02 

STA $0277,X 

Zeichen in Tastaturpuffer schreiben 

EBD3 

E8 



I NX 


EBD4 

86 

06 


STX $06 

Anzahl erhöhen 

EBD6 

A9 

F7 


LDA #$F7 

Tastatur-Matrix Abfrage auf Default 
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EBDB SD 20 91 
EBDB 60 


STA $9120 
RT5 


***************************** 


EBDC 

AD 

8D 

02 


LDA $02BD 

EBDF 

C9 

03 



CMP #$03 

EBE1 

D0 

2C 



BNE $EC0F 

EBE3 

CD 

8E 

02 


CMP $028E 

EBE6 

F0 

EE 



BEQ $EBD6 

EBE8 

AD 

91 

02 


LDA $0291 

EBEB 

30 

56 



BMI $EC43 

EBED 

EA 




NOP 

ECFF 


. . EA 


NÖP 

EC00 

AD 

05 

90 


LDA $9005 

EC03 

49 

02 



EQR #$02 

EC05 

8D 

05 

90 


STA $9005 

EC08 

EA 

EA 

EA 

EA 

NOP's 

EC0C 

4C 

43 

EC 


JMP $EC43 

EC0F 

0A 




ASL 

EC 1 0 

C9 

08 



CMP #$08 

EC12 

90 

04 



BCC $EC18 

EC 14 

A9 

06 



LDA #$06 

EC 16 

EA 


,. 


NOP 

EC37 

•. , 

, . EA 


NOP 

EC38 

AA 




TAX 

EC39 

BD 

46 

EC 


LDA $EC46,X 

EC3C 

85 

F5 



STA $F5 

EC3E 

BD 

47 

EC 


LDA $EC47,X 

EC41 

85 

F6 



STA $F6 

EC43 

4C 

74 

EB 


JMP $EB74 

***#********##**##*#*#***#*** 

EC46 

5E 

EC 




EC48 

9F 

EC 

E0 

EC 

A3 ED 5E EC 

EC50 

9F 

EC 

69 

ED 

A3 ED 21 ED 

EC58 

69 

ED 

69 

ED 

A3 ED 

*********#*#*##*#*########### 

EC5E 

31 

33 




EC60 

35 

37 

39 

2B 

5C 14 5F 57 

EC68 

52 

59 

49 

50 

2A 0D 04 41 

EC70 

44 

47 

4A 

4C 

3B ID 03 01 

EC78 

58 

56 

4E 

2C 

2F 11 20 5A 

EC80 

43 

42 

4D 

2E 

01 85 02 53 

EC88 

46 

48 

4B 

3A 

3D 86 51 45 

EC90 

54 

55 

4F 

40 

5E 87 32 34 

EC98 

36 

38 

30 

2D 

13 88 FF 


•fr******###**##*##**########## 

EC9F 21 

ECA0 23 25 27 29 DB A9 94 5F 

ECA8 D7 D2 D9 C9 D0 C0 8D 04 

ECB0 CI C4 C7 CA CC 5D 9D 83 

ECB8 01 D8 D6 CE 3C 3F 91 A0 

ECC0 DA C3 C2 CD 3E 01 89 02 

ECC8 D3 C6 C8 CB 5B 3D 8A Dl 

ECD0 C5 D4 D5 CF BA DE 8B 22 

ECD8 24 26 28 30 DD 93 BC FF 


Prüft auf Shift, CTRL, Commodore 
Flag für Shift/CTRL 

Zeiger auf Dekodiertabel1e berechnen 


Shift/Commodore erlaubt ? 
nein, zurück zur Dekodierung 


Shift/Commodore 

Umschaltung Kl ein/Groß schrei bung 


fertig 
Flag mal 2 


Zeiger auf Tabelle 

Adresse der Tabelle nach $F5/$F6 

zurück zur Dekodierung 

Zeiger auf Tastatur-Dekodiertabel1en 


Tastaturdekodiertabelle 


Tastaturdekodiertabelle 


**************######**####### Tastaturdekodiertabelle 
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ECE0 21 23 25 27 29 A6 A8 94 
ECES 5F B3 B2 B7 A2 AF DF BD 
ECF0 04 B0 AC A5 B5 B6 5D 9D 
ECFB 83 01 BD BE AA 3C 3F 91 
ED00 A0 AD BC BF A7 3E 01 89 
ED08 02 AE BB B4 Al 5B 3D 8A 
EDI 0 AB Bl A3 B8 B9 A4 DE 8B 
ED 18 22 24 26 28 30 DC 93 8C 
ED20 FF 

fr**************************** prüft auf Steuerzeichen 


ED21 

C9 

0E 


CMP 

#$0E 

chr$ <14) 

ED23 

D0 

0B 


BNE 

IED30 


ED25 

A9 

02 


LDA 

#$02 

Character-Generator auf Großschrift 

ED27 

0D 

05 

90 

ORA 

$9005 

umschalt en 

ED2A 

8D 

05 

90 

STA 

$9005 


ED2D 

4C 

DC 

E6 

JMP 

IE6DC 

fertig 

ED30 

C9 

8E 


CMP 

#$8E 

ehr $(142) 

ED32 

D0 

0B 


BNE 

$ED3F 


ED34 

A9 

FD 


LDA 

#$FD 

Character-Generator auf Kleinschrift 

ED36 

2D 

05 

90 

AND 

$9005 

umschalten 

ED39 

8D 

05 

90 

STA 

$9005 


ED3C 

4C 

DC 

E6 

JMP 

$E6DC 

fertig 

ED3F 

C9 

08 


CMP 

#$08 

chrl(8) 

ED41 

D0 

0A 


BNE 

$ED4D 


ED43 

A9 

80 


LDA 

#$80 


ED45 

0D 

91 

02 

ORA 

$0291 

Shift/Coflimodore sperren 

ED48 

8D 

91 

02 

STA 

$0291 


ED4B 

30 

EF 


BMI 

IED3C 


ED4D 

C9 

09 


CMP 

#$09 

chr$ (9) 

ED4F 

D0 

EB 


BNE 

$ED3C 


EDS 1 

A9 

7F 


LDA 

#$7F 


ED53 

2D 

91 

02 

AND 

$0291 

Shift/Cofiimodore ermöglichen 

ED56 

8D 

91 

02 

STA 

$0291 


ED59 

10 

El 


BPL 

$ED3C 


ED5B 

E8 



I NX 



ED5C 

B5 

D9 


LDA 

$D9, X 


ED5E 

09 

80 


ORA 

#$80 

Bit 8 setzen 

ED60 

95 

D9 


STA 

$D9, X 


ED62 

CA 



DEX 



ED63 

A5 

D5 


LDA 

$D5 


ED65 

18 



CLC 



ED66 

4C 

15 

E7 

JMP 

$E715 



*****####**###*#**#*##*#***#* Tabelle für Tastaturdekodierung 

ED69 FF FF FF FF FF FF FF 

ED70 FF FF FF FF FF FF FF FF 

ED78 E2 9D 83 01 FF FF FF FF 

ED80 FF 91 A0 FF FF FF FF EE 

ED88 01 89 02 FF FF FF FF El 

ED90 FD 8A FF FF FF FF FF B0 

ED98 E0 8B F2 F4 F6 FF F0 ED 

EDA0 93 8C FF 

***************************** Tabelle für Tastaturdekodierung 

EDA3 90 IC 9C 1F 12 

EDA8 FF FF FF 06 FF 12 FF FF 

EDB0 FF FF FF FF FF FF FF FF 

EDB8 FF FF FF FF FF FF FF FF 

EDC0 FF FF FF FF FF FF FF FF 
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EDC8 FF FF FF FF FF FF FF FF 

EDD0 FF FF FF FF FF FF FF FF 

EDD8 FF FF FF 05 9F iE 9E 92 

EDEß FF FF FF FF 

***************************** Konstanten für Videocontroller 

EDE4 0C 26 16 2E $9000 - $900F 

EDE8 00 C0 00 00 00 00 00 00 

EDF0 00 00 00 1B 

*************************** ** 

EDF4 4C 4F 41 44 load 

EDFS 0D 52 55 4E 0D 00 (er) run (er) 

*************************4*** Tabelle der LSB der Bidschirmzei 1enanfänqe 
EDFE 16 2C 

EE00 42 58 6E 84 9A E0 C6 DC 

EE0B F2 08 IE 34 4A 60 76 8C 

EE10 A2 B8 CE E4 

***************************** I/0“Roiitinen 

EE14 09 40 ORA #$40 TALK senden 

EE16 2C .BYTE $2C 


***************************** 


EE17 

09 

20 


ORA 

#120 

EE19 

20 

60 

Fl 

JSR 

$F 160 

EE 1C 

48 



PHA 


EE ID 

24 

94 


BIT 

$94 

EE 1F 

10 

0A 


BPL 

$EE28 

EE21 

38 



SEC 


EE22 

66 

A3 


ROR 

$A3 

EE24 

20 

49 

EE 

JSR 

$ E £ 4 9 

EE27 

46 

94 


LSR 

$94 

EE29 

46 

A3 


LSR 

$A3 

EE2B 

68 



PLA. 


EE2C 

85 

95 


STA 

$95 

EE2E 

20 

A0 

E4 

JSR 

$E4A0 

EE31 

C9 

3F 


CMP 

#$3F 

EE33 

D0 

03 


BNE 

$EE38 

EE35 

20 

84 

EF 

JSR 

$EF84 

EE38 

AD 

1F 

91 

LDA 

$911F 

EE3B 

09 

80 


ORA 

#$80 

EE3D 

8D 

1F 

91 

STA 

$911F 

EE40 

20 

8D 

EF 

JSR 

$EF8D 

EE43 

20 

A0 

E4 

JSR 

$E4A0 

EE46 

20 

96 

EF 

JSR 

$EF96 

EE49 

78 



SEI 


EE4A 

20 

A0 

E4 

JSR 

$E4A0 

EE4D 

20 

B2 

£4 

JSR 

$E4B2 

EE50 

4A 



LSR 


EE51 

B0 

61 


BCS 

$EEB4 

EE53 

20 

84 

EF 

JSR 

$EF84 

EE56 

24 

A3 


BIT 

$A3 

EE58 

10 

0C 


BPL 

$EE66 

EE5A 

20 

B2 

E4 

JSR 

$E4B2 

EE5D 

4A 



LSR 


EE5E 

90 

FA 


BCC 

$EE5A 

EE60 

20 

B2 

E4 

JSR 

$E4B2 

EE63 

4A 



LSR 


EE64 

B0 

FA 


BCS 

$ E E 6 0 


LISTEN senden 
IER setzen 


DAV = Hi ausgeben 


NDAC Lo ausgeben 

ATN ausgeben 

PCR Bit 1 löschen 

DAV = Hi ausgeben 

Warten auf Interrupt von Timer 2 

ein Byte auf IEC-Bus ausgeben (in $95) 

DAV * Hi ausgeben 

NRFD Hi ausgeben 

'device not present' wenn beide Hi 
NDAC Lo ausgeben 


NRFD Hi ausgeben 


NRFD Hi ausgeben 
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NRFD Hi ausgeben 


EE66 20 B2 E4 JSR $E4B2 

EE69 4A LSR 

EE6A 90 FA BCC $EE66 

EE6C 20 BD EF JSR IEF8D PCR Bit 1 löschen 
EE6F A9 0B LDA #$08 

EE71 85 A5 STA $A5 

EE73 AD 1F 91 LDA *91iF 

EE76 CD 1F 91 CUP *911F 

EE79 D0 F8 BNE IEE73 

EE7B 4A LSR 

EE7C 4A LSR 

EE7D 90 38 BCC $EEB7 

EE7F 66 95 RÜR $95 

EE81 B0 05 BCS $EE88 

EE83 20 A9 E4 JSR $E4A9 

EE86 Dß 03 BNE $EE8B 

EEB8 20 A0 E4 JSR $E4A0 DAV Hi ausgeben 

EE8B 20 84 EF JSR $EF84 NDAC Lo ausgeben 

EE8E EA NOP 

EE8F EA NOP 

EE90 EA NOP 

EE91 EA NOP 

EE92 AD 2C 91 LDA $912C 

EE95 29 DF AND #$DF 

EE97 09 02 ORA #$02 

EE99 8D 2C 91 STA $912C 

EE9C C6 A5 DEC $A5 

EE9E D0 D3 BNE IEE73 

EEA0 A9 04 LDA #$04 

EEA2 8D 29 91 STA $9129 

EEA5 AD 2D 91 LDA $912D 

EEA8 29 20 AND #$20 

EEAA D0 0B BNE IEEB7 Interrupt von Timer 2, dann time out 

EEAC 20 B2 E4 JSR $E4B2 NRFD Hi ausgeben 

EEAP 4A LSR 

EEB0 B0 F3 BCS IEEA5 

EEB2 58 CU 

EEB3 60 RTS 

EEB4 A9 80 LDA #$80 

EEB6 2C .BYTE #$2C 

EEB7 A9 03 LDA #$03 

EEB9 20 6A FE JSR IFE6A 

EEBC 58 CLI 

EEBD 18 CLC 

EEBE 90 49 BCC $EF09 

***************************** Sekundäradresse für LISTEN senden 
EEC0 85 95 STA $95 

EEC2 20 40 EE JSR $EE40 

EEC5 AD 1F 91 LDA *911F 

EEC8 29 7F AND #$7F ATN ausgeben 

EECA 8D 1F 91 STA *911F 

EECD 60 RTS 

***************************** Sekundäradresse für TALK senden 
EECE 85 95 STA $95 

EED0 20 40 EE JSR IEE40 

EED3 78 SEI 

EED4 20 A9 E4 JSR $E4A9 


' device not present' 

'time out' 

STatus setzen 
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EED7 

20 

C5 EE 

JSR $EEC5 


EEDA 

20 

84 EF 

JSR $EF84 

NDAC Lo ausgeben 

EEDD 

20 

B2 E4 

JSR $E4B2 

NRFD Hi ausgeben 

EEE0 

80 

FB 

BCS $EEDD 

EEE2 

58 


CLI 


EEE3 

60 


RTS 


***************************** 

IEC-Ausqabe 

EEE4 

24 

94 

BIT $94 

EEE6 

30 

05 

BMI $EEED 


EEE8 

38 


SEC 


EEE9 

66 

94 

RQR $94 


EEEB 

D0 

05 

BNE $EEF2 


EEED 

48 


PHA 


EEEE 

20 

49 EE 

JSR $EE49 


EEF1 

68 


PLA 


EEF2 

85 

95 

STA $95 


EEF4 

18 


CIC 


EEF5 

60 


RTS 


***************************** 

UNTALK senden 

EEF6 

20 

8D EF 

JSR $EF8D 

PCR Bit 1 löschen 

EEF9 

AD 

1F 91 

LDA $911F 


EEFC 

09 

80 

ORA #$80 

ATN ausgeben 

EEFE 

8D 

1F 91 

STA $911F 

EFßl 

A9 

5F 

LDA #$5F 

Kode für UNTALK 

EF03 

2C 


.BYTE $2C 


***************************** 

UNLISTEN senden 

EF04 

A9 

3F 

LDA #$3F 

Kode für UNLIST'EN 

EF06 

20 

IC EE 

JSR $EE 1C 


EF09 

20 

C5 EE 

JSR $EEC5 


EF0C 

8A 


TXA 


EF0D 

A2 

0B 

LDX #$0B 


EF0F 

CA 


DEX 


EF10 

D0 

FD 

BNE $EF0F 


EF 1 2 

AA 


TAX 


EF13 

20 

84 EF 

JSR $EF84 

NDAC Lo ausgeben 

EF 16 

4C 

A0 E4 

JMP $E4A0 

***************************** 

TEC-Eingabe 

EF 19 

78 


SEI 

EF 1A 

A9 

00 

LDA #$00 


EF 1 C 

85 

A5 

STA $A5 


EF 1 E 

20 

84 EF 

JSR $EF84 

NDAC Lo ausgeben 

EF21 

20 

B2 E4 

JSR $E4B2 

NRFD Hi ausgeben 

EF24 

90 

FB 

BCC $EF21 

EF26 

20 

A0 E4 

JSR $E4A0 

DAV Hi ausgeben 

EF29 

A9 

01 

LDA #$01 

EF2B 

8D 

29 91 

STA $9129 

Timer 2 C-H 

EF2E 

AD 

2D 91 

LDA $912D 

IFR 

EF31 

29 

20 

AND #$20 

Interrupt von Timer 2? 

EF33 

D0 

07 

BNE $EF3C 

EF35 

20 

B2 E4 

JSR $E4B2 

NRFD Hi ausgeben 

EF3B 

B0 

F4 

BCS $EF2E 

EF3A 

90 

18 

BCC $EF54 


EF3C 

A5 

A5 

LDA $A5 


EF3E 

Fß 

05 

BEQ $EF45 


EF40 

A9 

02 

LDA #$02 

TIMEOUT bei« Lesen 

EF42 

4C 

B9 EE 

JMP $EEB9 

STatus setzen 
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EF45 

20 

A9 E4 

JSR 

$E4A9 

EF48 

20 

0C EF 

J SR 

$EF0C 

EF4B 

A9 

40 

LDA 

#$40 

EF4D 

20 

6fi FE 

JSR 

$FE6A 

EF50 

E6 

A5 

INC 

$A5 

EF52 

D0 

D5 

BNE 

$EF29 

EF54 

A9 

0B 

LDA 

#$08 

EF56 

85 

A5 

STA 

$A5 

EF58 

AD 

1F 91 

LDA 

$911F 

EF5B 

CD 

1F 91 

CMP 

$91 iF 

EF5E 

D0 

Fß 

BNE 

$EF58 

EF60 

4 A 


LSR 


EF6 1 

90 

F5 

BCC 

$EF58 

EF63 

4 A 


LSR 


EF64 

66 

A4 

ROR 

$A4 

EF66 

AD 

1F 91 

LDA 

$911F 

EF69 

CD 

1F 91 

CMP 

$911F 

EF6C 

D0 

F8 

BNE 

$EF66 

EF6E 

4 A 


LSR 


EF6F 

B0 

F5 

BCS 

$EF66 

EF71 

C6 

A5 

DEC 

$A5 

EF73 

D0 

E3 

BNE 

$EF58 

EF75 

20 

A9 E4 

JSR 

$E4A9 

EF78 

A5 

90 

LDA 

$90 

EF7A 

F0 

03 

BEQ 

$EF7F 

EF7C 

20 

0C EF 

JSR 

$EF0C 

EF7F 

A5 

A4 

LDA 

$ A4 

EF8 1 

58 


CLI 


EF82 

18 


CLC 


EF83 

60 


RTS 


***************************** 

EF84 

AD 

2C 91 

LDA 

$91 2C 

EFS7 

29 

FD 

AND 

#$FD 

EF89 

8D 

2C 91 

STA 

$91 2C 

EF8C 

60 


RTS 


***************************** 

EF8D 

AD 

2C 91 

LDA 

$912C 

EF90 

09 

02 

ORA 

#$02 

EF92 

8D 

2C 91 

STA 

$91 2C 

EF95 

60 


RTS 


***************************** 

EF96 

A9 

04 

LDA 

#$04 

EF98 

SD 

29 91 

STA 

$9129 

EF9B 

AD 

2D 91 

LDA 

$912D 

EF9E 

29 

20 

AND 

#$20 

EFA0 

F0 

F9 

BEQ 

$EF9B 

EFA2 

60 


RTS 


***************************** 

EFA3 

A5 

B4 

LDA 

$B4 

EFA5 

F0 

47 

BEQ 

$EFEE 

EFA7 

30 

3F 

BMI 

$EFEB 

EFA9 

46 

B6 

LSR 

$B6 

EFAB 

A2 

00 

LDX 

#$00 

EFAD 

90 

01 

BCC 

$EFB0 

EFAF 

CA 


DEX 


EFB0 

8A 


TXA 



STatus setzen 


ein Byte einiesen 


NDAC lo ausgeben 
PCR Bit 1 löschen 

NDAC Hi ausgeben 
PCR Bit 1 setzen 

Warten auf Interrupt von Timer 2 


RS 232 Ausgabe 
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EFB1 

45 

BD 

EOR 

$BD 

EFB3 

85 

BD 

STA 

$8D 

EFB5 

C6 

B4 

DEC 

$B4 

EFB7 

F 0 

06 

BEQ 

$EFBF 

EFB9 

8A 


TXA 


EFBA 

29 

20 

AND 

#$20 

EFBC 

85 

B5 

STA 

$B5 

EFBE 

60 


RTS 


EFBF 

A9 

20 

LDA 

#$20 

EFC1 

2C 

94 02 

BIT 

$0294 

EFC4 

F 0 

14 

BEQ 

$EFDA 

EFC6 

30 

IC 

BMI 

$EFE4 

EFC8 

70 

14 

BVS 

IEFDE 

EFCA 

A5 

BD 

LDA 

$BD 

EFCC 

D0 

01 

BNE 

$EFCF 

EFCE 

CA 


DEX 


EFCF 

C6 

B4 

DEC 

$B4 

EFD1 

AD 

93 02 

LDA 

$0293 

EFD4 

10 

E3 

BPL 

$EFB9 

EFD6 

C6 

B4 

DEC 

$B4 

EFD8 

D0 

DF 

BNE 

$EFB9 

EFDA 

E6 

B4 

INC 

$84 

EFDC 

D0 

F0 

BNE 

$EFCE 

EFDE 

A5 

BD 

LDA 

$BD 

EFE0 

Fß 

ED 

BEQ 

IEFCF 

EFE2 

D0 

EA 

BNE 

$EFCE 

EFE4 

70 

E9 

BVS 

$EFCF 

EFE6 

50 

E6 

BVC 

$EFCE 

EFE8 

E6 

B4 

INC 

$B4 

EFEA 

A2 

FF 

LDX 

#$FF 

EFEC 

D0 

CB 

BNE 

$EFB9 

EFEE 

AD 

94 02 

LDA 

$0294 

EFF 1 

4A 


LSR 


EFF2 

90 

07 

BCC 

$EFFB 

EFF4 

2C 

20 91 

BIT 

$9120 

EFF7 

10 

ID 

BPL 

IF016 

EFF9 

50 

IE 

BVC 

$F019 

EFFB 

A9 

00 

LDA 

#$00 

EFFD 

85 

BD 

STA 

$BD 

EFFF 

85 

B5 

STA 

$B5 

F001 

AE 

98 02 

LDX 

$0298 

F004 

86 

B4 

STX 

$B4 

F006 

AC 

9D 02 

LDY 

$029D 

F009 

CC 

9E 02 

CP* 

$029E 

F00C 

F 0 

13 

BEQ 

$F021 

F00E 

Bl 

F9 

LDA 

($F9) ,Y 

F010 

85 

B6 

STA 

$B6 

F012 

EE 

9D 02 

INC 

$029D 

F015 

60 


RTS 



F016 A9 40 LDA #$40 

F018 2C .BYTE $2C 

F019 A9 10 LDA #$10 

F01B 0D 97 02 ORA $0297 

F01E 8D 97 02 STA $0297 

F021 A9 40 LDA #$40 

F023 8D IE 91 STA $91 IE 

F026 60 RTS 

***************************** Anzahl der RS 232 Datenbits berechnen 


DSR (Data Set Ready) fehlt 
CTS (CIear To Send) fehlt 
RS 232 Status setzen 


1 38 



F027 

A2 

09 


LDX 

#$09 

F029 

A9 

20 


LDA 

#$20 

F02B 

2C 

93 

02 

BIT 

$0293 

F02E 

F0 

01 


BEB 

$F03 i 

F030 

CA 



DEX 


F031 

50 

02 


BVC 

IF035 

F033 

CA 



DEX 


F034 

CA 



DEX 


F035 

60 



RTS 


F036 

A6 

A9 


LDX 

$A9 

F038 

D0 

2E 


BNE 

$F068 

F03A 

C6 

A8 


DEC 

$A8 

F03C 

F0 

31 


BEQ 

$F06F 

F03E 

30 

0D 


BMI 

IF04D 

F040 

A5 

A7 


LDA 

$A7 

F042 

45 

AB 


EOR 

$AB 

F044 

85 

AB 


STA 

$AB 

F046 

46 

A7 


LSR 

$A7 

F048 

66 

AA 


ROR 

$AA 

F04A 

60 



RTS 


F04B 

C6 

AB 


DEC 

$A8 

F04D 

A5 

A7 


LDA 

$ A7 

F04F 

F0 

62 


BEQ 

$F0B3 

F051 

AD 

93 

02 

LDA 

$0293 

F054 

0A 



ASL 


F055 

A9 

01 


LDA 

#101 

F057 

65 

AS 


ADC 

$A8 

F059 

D0 

EF 


BNE 

IF04A 

F05B 

A9 

90 


LDA 

#190 

F05D 

8D 

IE 

91 

STA 

$91 IE 

F060 

85 

A9 


STA 

$A9 

F062 

A9 

20 


LDA 

#$20 

F064 

8D 

IE 

91 

STA 

$911E 

F067 

60 



RTS 


F068 

A5 

A7 


LDA 

$A7 

F06A 

D0 

EF 


BNE 

$F05B 

F06C 

85 

A9 


STA 

$A9 

F06E 

60 



RTS 


F06F 

AC 

9B 

02 

LDY 

$029B 

F072 

ca 



I NY 


F073 

cc 

9C 

02 

CPY 

$029C 

F076 

F0 

2A 


BEQ 

$F0A2 

F078 

8C 

9B 

02 

STY 

$029B 

F07B 

88 



DEY 


F07C 

A5 

AA 


LDA 

$AA 

F07E 

AE 

98 

02 

LDX 

$0298 

F081 

E0 

09 


CPX 

#$09 

F083 

F0 

04 


BEQ 

$F089 

F085 

4 A 



LSR 


F086 

E8 



I NX 


F0B7 

D0 

F8 


BNE 

$F081 

F089 

91 

F7 


STA 

($F7),Y 

F08B 

A9 

20 


LDA 

#$20 

F08D 

2C 

94 

02 

BIT 

$0294 

F090 

F0 

B9 


BEQ 

$F04B 

F092 

30 

B6 


BMI 

$F04A 

F094 

A5 

A7 


LDA 

$A7 


Kontrol1 wort 


X enthält Anzahl der Datenbits 
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F096 45 AB EOR $AB 

FB98 F0 03 BEQ $F09D 

F09A 70 AE BVS $F04A 

F09C 2C .BYTE $20 

F09D 50 AB BVC $F04A 

F09F A9 01 LDA #$01 Paraity-Feh1 er 

F0A1 2C .BYTE $20 

F0A2 A9 04 LDA #$04 Empfängerpuffer voll 

F0A4 20 .BYTE $20 

F0A5 A9 80 LDA #$80 Break-Befehl empfangen 

F0A7 2C -BYTE $20 

F3A8 A9 02 LDA #$02 Rahmen-Fehler 

F0AA 0D 97 02 DRA $0297 

F0AD 8D 97 02 STA $0297 RS 232 Status setzen 

F0B0 40 5B F0 JMP $F05B 

F0B3 A5 AA LDA $AA 

F0B5 Dß Fl BNE $F0AB 

F0B7 Fß EC BEQ $F0A5 

F0B9 40 96 F7 JMP $F796 gibt 'illegal device number' 

fr#***#*#**##****####********* RS 232 CKÜUT 

F0BC 85 9A STA $9A Gerätenummer 

F0BE AD 94 02 LDA $0294 

F0C1 4A LSR 

F0C2 90 27 BCC $FßEB 

F0C4 A9 02 LDA #$02 

F0C6 20 10 91 BIT $9110 

F0C9 10 ID BPL $F0E8 

F0CB D0 IE BNE $F0EB 

F0CD AD IE 91 LDA «911E 

F0D0 29 30 AND #$30 

F0D2 D0 F9 BNE $F0CD 

F0D4 20 10 91 BIT $9110 

F0D7 70 FB BVS $F0D4 

F0D9 AD 10 91 LDA $9110 

F0DC 09 02 QRA #$02 

F0DE 8D 10 91 STA $9110 

F0E1 20 10 91 BIT $9110 

F0E4 70 05 BVS $F0EB 

F0E6 30 F9 BMI $F0E1 

F0E8 20 16 F0 JSR $F016 

F0EB 13 CLO 

F0EC 60 RTS 

fr**************************** RS 232 Ausgabe 

F0ED AC 9E 02 LDY $029E 

F0F0 08 INY 

F0F1 CC 9D 02 CPY $029D 

F0F4 F0 F7 BEQ $F0ED 

F0F6 80 9E 02 STY $029E 

F0F9 88 DEY 

F0FA 91 F9 STA ($F9),Y 

F0FC 20 IE 91 BIT «91 IE 

F0FF 50 01 BVC $F102 

Fl 01 60 RTS 

F102 AD 99 02 LDA $0299 

F105 8D 14 91 STA $9114 

F108 AD 9A 02 LDA $029A 

F10B 8D 15 91 STA $9115 
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F10E A9 Cß 
Fl 10 8D iE 91 
Fl 13 4C EE EF 


LDA #$C0 
STA $911E 
JMP $EFEE 




Fl 16 

35 

99 



STA 

$99 

Fl 18 

AD 

94 

02 


LDA 

$0294 

Fl 1B 

4A 




LSR 


F11C 

90 

28 



BCC 

$F 146 

Fl iE 

29 

08 



AND 

#$08 

F1 20 

F0 

24 



BEQ 

$F 1 46 

F122 

A9 

02 



LDA 

#$02 

F 1 24 

2C 

10 

91 


BIT 

$9110 

F127 

10 

BF 



BPL 

$F0EB 

F129 

F0 

19 



BEQ 

$F 144 

F12B 

2C 

IE 

91 


BIT 

$91 IE 

F12E 

70 

FB 



BVS 

IF12B 

F 130 

AD 

10 

91 


LDA 

$9110 

F133 

29 

FD 



AND 

#$FD 

F135 

SD 

10 

91 


STA 

$9110 

F138 

AD 

10 

91 


LDA 

$9110 

F13B 

29 

04 



AND 

#$04 

F13D 

F0 

F9 



BEQ 

$F 138 

F13F 

A9 

90 



LDA 

#$90 

F1 4 1 

SD 

IE 

91 


STA 

$91 iE 

F144 

18 




CLC 


F145 

60 




RTS 


F 1 46 

AD 

IE 

91 


LDA 

$91 IE 

F1 49 

29 

30 



AND 

#$30 

F14B 

F0 

F2 



BEQ 

$F 13F 

F14D 

18 




CLC 


F14E 

60 




RTS 


***************************** 

F14F 

AC 

9C 

02 


LDY 

$029C 

F 152 

CC 

9B 

02 


CPY 

$029B 

F155 

F0 

06 



BEQ 

$F15D 

F157 

Bl. 

F7 



LDA 

($ F 7) , Y 

F1 59 

EE 

9C 

02 


INC 

$029C 

F15C 

60 




RTS 


F15D 

A9 

00 



LDA 

#$00 

F15F 

60 




RTS 


**************************** 

F1 60 

48 




PHA 


F1 61 

AD 

IE 

91 


LDA 

$9 11E 

F1 64 

F0 

0C 



BEQ 

$F172 

F1 66 

AD 

iE 

91 


LDA 

$911E 

F169 

29 

60 



AND 

#$60 

F16B 

D0 

F9 



BNE 

$F166 

F16D 

A9 

10 



LDA 

#$10 

F16F 

8D 

IE 

91 


STA 

$91 IE 

F1 72 

68 




PLA 


F173 

60 




RTS 


***************************** 

F174 

0D 

49 

2F 

4F 



F173 

20 

45 

52 

52 

4F 52 20 A3 

F180 

0D 

53 

45 

41 

52 4 

\Z 48 49 


RS 232 CHKIN 

Nummer des Eingabegeräts 


BET von RS 232 
Pufferzeiger 

Puffer leer ? 

Zeichen auf Puffer holen 
Pufferzeiger incrementieren 

Nullbyte zurückgeben 


Timer setzen 


I/O-Meldungen 

i/o 

error # 
searchi 
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F188 

4E 

47 

Aß 

46 

4F 

52 

A0 

0D 

ng For 

F 190 

50 

52 

45 

53 

53 

20 

50 

4C 

press pl 

F 198 

41 

59 

20 

4F 

4E 

20 

54 

41 

ay on ta 

F1A0 

50 

C5 

50 

52 

45 

53 

53 

20 

pEpress 

F1A8 

52 

45 

43 

4F 

52 

44 

20 

26 

record & 

F1B0 

20 

5ß 

4C 

41 

59 

20 

4F 

4E 

play on 

F1B8 

20 

54 

41 

5ß 

C5 

0D 

4C 

4F 

tapE lo 

F1C0 

41 

44 

49 

4E 

C7 

0D 

53 

41 

adinG sa 

F1C8 

56 

49 

4E 

47 

Aß 

0D 

56 

45 

ving ve 

F1D0 

52 

49 

46 

59 

49 

4E 

C7 

0D 

riFyinG 

F1D8 

46 

4F 

55 

4E 

44 

A0 

00 

4F 

Found o 

F1E0 

4B 

8D 







k 


***************************** Fehlermeldung des Betriebssytems ausgeben 


F1E2 

24 

9D 


BIT 

$90 

D i r ekt-liodus Flag 

F1E4 

10 

00 


BPL 

$F 1F3 

Programm, dann überspringen 

F1E6 

B9 

74 

Fl 

LDA 

$ F17 4 , Y 

OFFset der Fehlermeldung in 

F1E9 

08 



PHP 



F1EA 

29 

7F 


AND 

#$7F 

Bit 7 löschen 

F1 EC 

20 

D2 

FF 

JSR 

$FFD2 

BSÜUT ein Zeichen ausgeben 

F1EF 

C8 



INY 



F1F0 

28 



PLP 



F1F1 

10 

F3 


BPL 

$F 1E6 

noch weitere Buchstaben ? 

F1F3 

18 



CLC 



F1F4 

60 



RTS 




***************************** SET IN 

F1F5 A5 99 LDA 199 Eingabegerät 

F1F7 D0 08 BNE $F201 nicht Tastatur ? 

F1F9 A5 C6 LDA $C6 Anzahl der Zeichen im TastaturpuFFer 

F1FB F0 60 BEQ IF26A kein Zeichen ? 

F1FD 78 SEI 

F1FE 4C CF E5 JHP $E5CF Zeichen aus TastaturopufFer holen 

F201 C9 02 CMP #$02 RS 232 ? 

F203 Dß 1B BNE $F21D nein 

F205 64 97 STY $97 

F207 20 4F Fl JSR IF14F Get von RS 232 

F20A A4 97 LDY $97 

F20C 18 CLC 

F20D 60 RTS 

*##***#*##**##**##**##*##**** BASIN E i n g a b er ou t i ne 


F20E 

A5 

99 


LDA 

$99 

Ger ät enummer 

F210 

00 

0B 


BNE 

IF21D 

nicht Tastatur 

F212 

A5 

03 


LDA 

$03 

Cursorposition 

F214 

85 

CA 


STA 

$CA 


F216 

A5 

D6 


LDA 

$06 

Für Tastatureingabe setzen 

F2 18 

85 

C9 


STA 

$C9 


F21A 

4C 

4F 

E6 

JHP 

IE64F 

Eingabe vom Bildschirm 

F21D 

C9 

03 


CMP 

#$03 

Bildschirm ? 

F21F 

D0 

09 


BNE 

$F22A 

nein 

***************************** 

Eingabe vom Bildschirm 

F221 

85 

00 


STA 

$00 


F223 

A5 

05 


LDA 

$05 


F225 

85 

C8 


STA 

$C8 


F227 

4C 

4F 

E6 

JMP 

$E64F 
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F22A 

Bß 

38 


BCS $F264 

vom IEC-Bus ? 

F22C 

C9 

02 


CMP #102 


F22E 

Fß 

3F 


BEQ $F26F 

von RS 232 

***************************** 

Eingabe vom Band 

F230 

B6 

97 


STX *97 

X-Register speichern 

F232 

20 

50 

F2 

JSR $F250 

ein Zeichen vom Band holen 

F235 

Bß 

16 


BCS $F24D 

Zeichen gelesen ? 

F237 

48 



PHA 


F238 

20 

50 

F2 

JSR $F25ß 

ein Zeichen vom Band holen 

F23B 

B0 

0D 


BCS $F24A 


F23D 

D0 

05 


BNE *F244 

letztes Zeichen ? 

F23F 

A9 

40 


LDA #$40 

End of File 

F241 

20 

6A 

FE 

JSR $FE6A 

STatus setzen 

F244 

C6 

A6 


DEC $A6 

Zeiger in Puffer erniedrigen 

F246 

A6 

97 


LDX $97 

X-Register zurückholen 

F248 

68 



FLA 

Zeichen zurückholen 

F249 

60 



RTS 


F24A 

AA 



TAX 


F24B 

68 



PLA 


F24C 

8A 



TXA 


F24D 

A6 

97 


LDX $97 


F24F 

60 



RTS 


***************************** 

ein Zeichen vom Band holen 

F250 

20 

8A 

FS 

JSR $F88A 

Tapepufferzeiger erhöhen 

F253 

D0 

0B 


BNE $F260 

noch Zeichen im Puffer ? 

F255 

20 

C0 

FS 

JSR IF8C0 

einen Block vom Band lesen 

F258 

Bß 

11 


BCS $F26B 

nein, nächsten Block vom Band lesen 

F25A 

A9 

00 


LDA #$00 


F25C 

B5 

A6 


STA $A6 

Pufferzeiger auf Null, Zeichen holen 

F25E 

F0 

Fß 


BEQ $F250 


F260 

Bl 

B2 


LDA UB2),Y 

Zeichen aus Puffer holen 

F262 

18 



CLC 


F263 

60 



RTS 


F264 

A5 

90 


LDA $90 

Status testen 

F266 

F 0 

04 


BEQ $F26C 


F268 

A9 

00 


LDA #$0D 

STatus ungleich Null, dann 'CR' geben 

F26A 

18 



CLC 


F26B 

60 



RTS 


***************************** 

IEC-Eingabe 

F26C 

4C 

19 

EF 

JMP $EF 19 

ein Byte vom IEC-Bus holen 

***************************** 

RS 232 Eingabe 

F26F 

20 

05 

F2 

JSR $F205 

ein Byte von RS 232 holen 

F272 

B0 

05 


BCS $F279 


F274 

C9 

00 


CMP #$00 


F276 

F0 

F7 


BEQ $F26F 


F278 

18 



CLC 


F279 

60 



RTS 


***************************** 

B50UT Ausgabe eines Zeichens 

F27A 

48 



PHA 


F27B 

A5 

9A 


LDA $9A 

Gerätenummer für Ausgabe 

F27D 

C9 

03 


CMP #$03 

Bildschirm ? 

F27F 

D0 

04 


BNE IF285 

nein 

F281 

68 



PLA 


F282 

4C 

42 

E7 

JMP $E742 

Ausgabe auf Bildschirm 


14 . 



! 


F285 

90 

04 

BCC $F28B 


F287 

68 


FLA 


F288 

4C 

E4 EE 

JMP $EEE4 

I EC-Ausgabe 

F28B 

C9 

02 

ChP #$02 

RS 232 Ausgabe 

F28D 

F0 

2A 

BEß $F2B9 


*+*****************#*****#*** 

Bandausgabe 

F28F 

68 


PLA 

F290 

85 

9E 

STA $9E 


F292 

48 


PHA 


F293 

8A 


TXA 


F294 

48 


PHA 


F295 

98 


TYA 


F296 

48 


PHA 


F297 

20 

8A F8 

JSR $F88A 

Tapepufferzeiger erhöhen 

F29A 

D0 

0E 

BNE $F2AA 

Puffer voll ? 

F29C 

20 

E3 F8 

JSR $F8E3 

ja, Puffer auf Band schreiben 

F29F 

B0 

0E 

BCS $F2AF 


F2A1 

A9 

02 

LDA #$02 


F2A3 

A0 

00 

LDY #$00 

Kontrollbyte fuer Datenblock in 

F2A5 

91 

B2 

STA ($B2),Y 


F2A7 

C8 


I NY 


F2A8 

84 

A6 

STY $A6 

Puff erzeiger erhöhen 

F2AA 

A5 

9E 

LDA $9E 

Zeichen 

F2AC 

91 

B2 

STA ($B2),Y 

in Tapepuffer schreiben 

F2AE 

18 


CLC 


F2AF 

68 


PLA 


F2B0 

A8 


TAY 


F2B1 

63 


PLA 


F2B2 

AA 


TAX 


F 2 B 3 

68 


PLA 


F2B4 

90 

02 

BCC $F2B8 


F2B6 

A9 

00 

LDA #$00 


F2BS 

60 


RTS 


fr***********##*****####**#**# 

RS 232 Ausgabe 

F2B9 

68 


PLA 


F2BA 

86 

97 

STX $97 


F2BC 

84 

9E 

STY $9E 


F2BE 

20 

ED F0 

JSR IF0ED 

ein Zeichen auf RS 232 ausgeben 

F2C1 

A6 

97 

LDX $97 


F2C3 

A4 

9E 

LDY $9E 


F2C5 

18 


CLC 


F2C6 

60 


RTS 


*4**************«#***#*#**#*# 

CHKIN Eingabegerät festlegen 

F2C7 

20 

CF F3 

JSR $F3CF 

sucht logische Filenummer 

F2CA 

F0 

03 

BEQ IF.2CF 

gefunden ? 

F2CC 

4C 

84 F7 

JMP $F784 

nein, 'fi1e not open' 

F2CF 

20 

DF F3 

JSR IF3DF 

setzt Fi 1eparameter 

F2D2 

A5 

BA 

LDA $BA 

Primäradresse 

F2D4 

F0 

16 

BEQ $F2EC 

Tastatur ? 

F2D6 

C9 

03 

CMP #$03 


F2D8 

F0 

12 

BEQ $F2EC 

Bi 1dschirm ? 

F2DA 

B0 

14 

BCS $F2F0 

IEC ? 

F2DC 

C9 

02 

CMP #$02 


F2DE 

D0 

03 

BNE $F2E3 


F2E0 

4C 

16 Fl 

JMP $F116 

RS 232 
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***************************** 


F2E3 

A6 

B9 


LDX 

$B9 

F2E5 

E0 

60 


CPX 

#$60 

F2E7 

F0 

03 


BEQ 

$F2EC 

F2E9 

4C 

8D 

F7 

J MP 

$ F 7 8 D 

F2EC 

85 

99 


STA 

$99 

F2EE 

18 



CLC 


F2EF 

60 



RTS 


***************************** 

F2F0 

AA 



TAX 


F2F1 

20 

14 

EE 

JSR 

$EE 14 

F2F4 

A5 

B9 


LDA 

$ B9 

F2F6 

10 

06 


BPL 

$ F 2 F E 

F2F8 

20 

D3 

EE 

JSR 

$£ED3 

F2FE 

4C 

01 

F3 

JMP 

$ F 3 01 

F2FE 

20 

CE 

EE 

JSR 

$EECE 

F301 

8A 



TXA 


F302 

24 

90 


BIT 

$90 

F304 

10 

E6 


BPL 

$F2EC 

F306 

4C 

8A 

F7 

JMP 

$F78 A 

fr#*****#*******#****#**#*#*## 

F309 

20 

CF 

F3 

JSR 

f F3CF 

F30C 

F0 

03 


BEQ 

$F31 1 

F30E 

4C 

84 

F7 

JMP 

$F784 

F311 

20 

DF 

F3 

JSR 

$F3DF 

F314 

A5 

BA 


LDA 

$BA 

F316 

D0 

03 


BNE 

$F31 B 

F318 

4C 

90 

F7 

JMP 

IF790 

F31B 

C9 

03 


CMP 

#$03 

F31D 

F0 

0F 


BEQ 

$F32E 

F31F 

Bß 

11 


BCS 

$F332 

F321 

C9 

02 


CMP 

#$02 

F323 

D0 

03 


BNE 

IF328 

F325 

4C 

BC 

F0 

JMP 

$F0BC 

fr**************************** 

F328 

A6 

B9 


LDX 

$B9 

F32A 

E0 

60 


CPX 

#$60 

F32C 

F0 

EA 


BEQ 

$F31 8 

F32E 

35 

9A 


STA 

$9A 

F330 

19 



CLC 


F331 

60 



RTS 


fr**#*##****#*#***#*#*****#*** 

F332 

AA 



TAX 


F333 

20 

17 

EE 

JSR 

$EE17 

F33£> 

A5 

B9 


LDA 

$B9 

F338 

10 

05 


BPL 

$F33F 

F33A 

20 

C5 

EE 

JSR 

$EEC5 

F33D 

D0 

03 


BNE 

$F342 

F33F 

20 

C0 

EE 

JSR 

$EEC0 

F342 

8A 



TXA 


F343 

24 

90 


BIT 

$90 

F345 

10 

E7 


BPL 

IF32E 

F347 

4C 

QA 

F7 

JMP 

$F78A 

***************************** 

F34A 

20 

D4 

F3 

JSR 

$F3D4 


Band als Eingabegerät setzen 
Sekundäradresse 
nul 1 

ja, lesen 

sonst 'not input fi1e ' 
INPUT-Filenummmer 


IEC-Bus als Eingabegerät 

TALK senden 
Sekundär-Ad resse 
positiv? => 


Sekundäradresse ■für TALK senden 

STatus 

OK. 

sonst 'device not present' 

CKGUT Ausgabegerät setzen 
sucht log. FilenuiMier 
Filenummer gefunden? 
nein, ' fi1e not open’ 

Fileparameter setzen 
Primär-Adresse 
ungleich null ? 
gibt 'not input fi1e' 

Bildschirm ? 
ja 

IEC-Bus ? 

RS 232 ? 

RS 232 als Ausgabegerät setzen 

Band als Ausgabegerät setzen 

Sekundäradresse 

Null ? 

gibt 'not input File' 

Nummer des Ausgabegeräts setzen 


IEC-Bus als Ausgabegerät 

LISTEN senden 
Sekun där-Adresse 

ATN rücksetzen 

Sekundäradresse für LISTEN senden 

STatus ? 

OK. 

gibt 'device not present' 

CLOSE 

sucht logische Filenummer 
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File nicht vorhanden, -fertig 
Fileparadieter setzen 


Primär-Adresse 
Tastatur ? 
Bildschirm ? 

IEC-Bus 
RS 232 ? 


F34D 

F0 

02 


BEQ 

$F351 

F34F 

18 



CLC 


F350 

60 



RTS 


F351 

20 

DF 

F3 

JSR 

$F3DF 

F354 

BA 



TXA 


F355 

48 



PHA 


F356 

A5 

BA 


LDA 

$BA 

F358 

F0 

57 


BEQ 

$F3B 1 

F35A 

C9 

03 


CMP 

#$03 

F35C 

F0 

53 


BEQ 

$F3B 1 

F35E 

B0 

4E 


BCS 

$F3AE 

F360 

C9 

02 


CMP 

#$02 

F362 

D0 

29 


BNE 

$F38D 

***************************** 

F364 

68 



PLA 


F365 

20 

B2 

F3 

JSR 

IF3B2 

F368 

A9 

70 


LDA 

#$7D 

F36A 

BD 

IE 

91 

STA 

$9 11 E 

F36D 

A9 

06 


LDA 

#$06 

F36F 

.80 

10 

91 

STA 

$9110 

F372 

A9 

EE 


LDA 

#$EE 

F374 

8D 

IC 

91 

STA 

$9110 

F377 

20 

75 

FE 

JSR 

$FE75 

F37A 

A5 

F8 


LDA 

$F3 

F37C 

Fß 

01 


BEQ 

$F37F 

F37E 

C8 



INY 


F37F 

A5 

FA 


LDA 

$FA 

F381 

F0 

01 


BEQ 

$F384 

F383 

C8 



INY 


F384 

A9 

00 


LDA 

#$00 

F386 

85 

F8 


STA 

$FB 

F388 

85 

FA 


STA 

$FA 

F38A 

4C 

3C 

F5 

JMP 

IF53C 

***************************** 

F38D 

A5 

B9 


LDA 

$B9 

F38F 

29 

0F 


AND 

#$0F 

F391 

F0 

IE 


BEQ 

$F3B 1 

F393 

20 

40 

F8 

JSR 

IF84D 

F396 

A9 

00 


LDA 

#$00 

F398 

20 

90 

F2 

JSR 

$F290 

F39B 

4C 

CF 

E4 

JMP 

$E4CF 

F39E 

B0 

2E 


BCS 

$F3CE 

F3A0 

A5 

B9 


LDA 

$B9 

F3A2 

C9 

62 


CMP 

#$62 

F3A4 

00 

0B 


BNE 

$ F 3 B1 

F3A6 

A9 

05 


LDA 

#$05 

F3A8 

20 

E7 

F7 

JSR 

$F7E7 

F3AB 

4C 

Bl 

F3 

JMP 

$F3B 1 

***************************** 

F3AE 

20 

DA 

F6 

JSR 

$F6DA 

F3B1 

68 



PLA 


F3B2 

AA 



TAX 


F3B3 

C6 

98 


DEC 

$98 

F3B5 

E4 

98 


CPX 

$98 

F3B7 

F0 

14 


BEQ 

$ F 3 C D 

F3B9 

A4 

98 


LDY 

$98 

F3BB 

B9 

59 

02 

LDA 

$0259,Y 


RS 232 File schließen 
Fileeintrag in Tabelle löschen 


null 

Band-Puffer Startadresse holen 


Puffer auf Band schreiben 

Sekundär adr esse 

'EOT* - Kennzeichen 
Block auf Band schreiben 

IEC-File schließen 
lEC-File schließen 

Anzahl der offenen Files erniedrigen 
gleich null, dann fertig 


Bandfile schließen 
Sekundäradresse 
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F3BE 

9D 

59 02 

STA 

$0259, X 


F3C1 

B9 

63 02 

LDA 

$0263,Y 

Fi 1 edatentabel1e 

F3C4 

9D 

63 02 

STA 

$0263,X 

aktualiBieren 

F3C7 

B9 

6D 02 

LDA 

$026D, Y 


F3CA 

9D 

6D 02 

STA 

$026D, V 


F3CD 

18 


CLC 



F3CE 

60 


RTS 



********0******************* 

sucht logische Filenummer 

F3CF 

A9 

00 

LDA 

#$00 


F3D 1 

85 

90 

STA 

$90 

Status löschen 

F3D3 

8A 


TXA 


Filenummer in X 

F3D4 

A6 

98 

LDX 

$98 

Anzahl der offenen Files 

F3D6 

CA 


DEX 



F3D7 

30 

15 

BMI 

$F3EE 


F3D9 

DD 

59 02 

CMP 

$0259, X 

sucht Eintrag in Tabelle 

F3DC 

D0 

F8 

BNE 

$F3D6 


F3DE 

60 


RTS 



****************************** 

setzt Fi 1eparameter 

F 3 DF 

BD 

59 02 

LDA 

$0259,X 


F3E2 

85 

B8 

STA 

$B8 

logische Filenummer 

F3E4 

BD 

63 02 

LDA 

$0263,X 


F3E7 

85 

BA 

STA 

$BA 

Gerätenummer 

F3E9 

BD 

6D 02 

LDA 

I026D,X 


F3EC 

85 

B9 

STA 

$B9 

Sekundäradresse 

F3EE 

60 


RTS 



****************************** 

CLALL alle I/Q-Kanäle rücksetzen 

F3EF 

A9 

00 

LDA 

#$00 


F3F1 

85 

98 

STA 

$98 

Anzahl der offenen Files = Null 

F3F3 

A2 

03 

LDX 

#$03 


F3F5 

E4 

9A 

CPX 

$9 A 

Nummer des Ausgabegeräts 

F3F7 

B0 

03 

BCS 

$F3FC 

kleiner als 4 ? 

F3F9 

20 

04 EF 

JSR 

$EF04 

IEC, UNLISTEN senden 

F3FC 

E4 

99 

CPX 

$99 

Nummer des Eingabegeräts 

F3FE 

B0 

03 

BCS 

$F403 

kleiner als 4 ? 

F400 

20 

F6 EE 

JSR 

$EEF6 

1 EC, UNTALK senden 

F403 

86 

9A 

STX 

$9A 


F405 

A9 

00 

LDA 

#$00 

Standard I/O (Tastatur/Bildschiri 

F407 

85 

99 

STA 

$99 


F409 

60 


RTS 



***************************** 

OPEN 

F40A 

A6 

B8 

LDX 

$B8 

Fi 1enummer 

F40C 

D0 

03 

BNE 

$ F 4 11 

ung1 eich nul1 ? 

F40E 

4C 

BD F7 

JMP 

IF78D 

gibt 'not input file' (??) 

F411 

20 

CF F3 

JSR 

$F3CF 

sucht logische Filenummer 

F414 

D0 

03 

BNE 

$F419 

nicht gefunden, kann neu angelegt 

F416 

4C 

Bl F7 

JMP 

$F781 

sonst 'file open error' 

F419 

A6 

98 

LDX 

$98 

Anzahl der offenen Files 

F41B 

E0 

0A 

CPX 

#$0A 

kleiner 10 ? 

F41D 

90 

03 

BCC 

$F422 

ja 

F41F 

4C 

7E F7 

JMP 

$F77E 

sonst 'too many files' 

F422 

E6 

98 

INC 

$98 

Anzahl erhöhen 

F424 

A5 

B8 

LDA 

$B8 


F426 

9D 

59 02 

STA 

$0259 ,X 


F429 

A5 

B9 

LDA 

$B9 

Sekundäradresse 

F42B 

09 

60 

ORA 

#$60 


F42D 

85 

B9 

STA 

$B9 
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F42F 

9D 

6D 

02 

STA 

$026D, 

,X 


F 432 

A5 

BA 


LDA 

$BA 


Gerätenummer 

F434 

9D 

63 

02 

STA 

10263. 

,X 

in die entsprechenden Tabellen schreiben 

F437 

F0 

5 A 


BEQ 

$F493 


Tastatur ? 

F439 

C9 

03 


CMP 

#$03 



F43B 

F0 

56 


BEQ 

$ F493 


Bi 1d schirm 

F43D 

90 

05 


BCC 

$F444 



F43F 

20 

95 

F 4 

JSR 

IF495 


IEC-OPEN 

F442 

90 

4F 


BCC 

$ F 4 9 3 



F444 

C9 

02 


CMP 

#$02 



F446 

Dß 

03 


BNE 

$F44B 



F448 

4C 

C7 

F 4 

JMP 

$ F 4 C 7 


RS 232 OPEN 

F44B 

20 

4D 

F8 

JSR 

$F84D 


Bandpuffer Startadresse holen 

F44E 

B0 

03 


BCS 

$F453 



F450 

4C 

96 

F7 

JMP 

$F796 


gibt 'illegal device number' 

F453 

A5 

B9 


LDA 

$B9 


Sekundäradresse 

F455 

29 

0F 


AND 

#$0F 



F457 

D0 

1F 


BNE 

$F478 


ungleich null ? 

F459 

20 

94 

F8 

JSR 

$F894 


wartet auf PLAY-Taste 

F45C 

B0 

36 


BCS 

IF494 



F45E 

20 

47 

F6 

JSR 

$F647 


'searching for name' ausgeben 

F461 

A5 

B7 


LDA 

$B7 


Länge des Filenamens 

F463 

F 0 

0A 


BEQ 

$F46F 


kein Filename, dann weiter 

F465 

20 

67 

F8 

JSR 

$F867 


gewünschten Tapeheader suchen 

F468 

90 

18 


BCC 

IF482 



F46A 

F0 

28 


BEQ 

$F494 



F46C 

4C 

87 

F7 

JMP 

$F787 


'file not found' ausgeben 

F46F 

20 

AF 

F7 

JSR 

$F7AF 


nächsten Tapeheader suchen 

F472 

F0 

20 


BEQ 

$F494 



F474 

90 

0C 


BCC 

$F482 



F476 

B0 

F4 


BCS 

$F46C 



F478 

20 

B7 

F8 

JSR 

$F8B7 


wartet auf Record & Play Taste 

F47B 

B0 

17 


BCS 

$ F 4 9 4 



F47D 

A9 

04 


LDA 

#$04 


Datenblock - Kennzeichen 

F47F 

20 

E7 

F7 

JSR 

$F7E7 


Block auf Band schreiben 

F482 

A9 

BF 


LDA 

#$BF 


Zeiger auf Ende des Bandpuffers 

F484 

A4 

B9 


LDY 

$B9 


Sek undär adr esse 

F486 

C0 

60 


CPY 

#160 



F4B8 

F0 

07 


BEQ 

$ F 4 91 


gleich null, dann weiter 

F48A 

A0 

00 


LDY 

#$00 



F48C 

A9 

02 


LDA 

#$02 


Datenheader - Kennzeichen 

F48E 

91 

B2 


STA 

($B2), 

Y 

in Puffer schreiben 

F490 

98 



TYA 




F491 

85 

A6 


STA 

$A6 


Zeiger in Bandpuffer 

F493 

18 



CLC 




F494 

60 



RTS 




***************************** 

File auf IEC-Bus eröffnen 

F495 

A5 

B9 


LDA 

$B9 


Sekundäradresse 

F497 

30 

2C 


BMI 

$F4C5 



F499 

A4 

B7 


LDY 

$B7 


Länge des Filenamens 

F49B 

F0 

28 


BEQ 

$F4C5 


gleich null, dann fertig 

F49D 

A5 

BA 


LDA 

$BA 


Geräteadresse 

F49F 

20 

17 

EE 

JSR 

$EE 17 


LISTEN senden 

F4A2 

A5 

B9 


LDA 

$B9 


Sekundäradresse 

F4A4 

09 

F0 


ORA 

#$F0 



F4A6 

20 

C0 

EE 

JSR 

$EEC0 


senden 

F4A9 

A5 

90 


LDA 

$90 


Status 

F4AB 

10 

05 


BPL 

$F4B2 


testen 

F4AD 

68 



PLA 



Rücksprungadresse löschen 


1 48 



F4AE 

68 



PLA 


F4AF 

4C 

8A 

F7 

JMP IF78A 

gibt "device not present 

F4B2 

A5 

B7 


LDA $B7 

Länge des Filenamens 

F4B4 

F0 

0C 


BEQ IF4C2 


F4B6 

A0 

00 


LDY #$00 


F4B8 

Bl 

BB 


LDA I$BB),Y 

Filenamen ausgeben 

F4BA 

20 

E4 

EE 

JSR $EEE4 


F4BD 

C8 



INY 


F4BE 

C4 

B7 


CPY $B7 


F4C0 

D0 

F6 


BNE $F4B8 


F4C2 

20 

04 

EF 

JSR $EF04 

UNLISTEN 

F4C5 

18 



CLC 


F4C6 

60 



RTS 



***************************** RS 232 GPEN 


F4C7 

A9 

06 


LDA 

#$06 


F4C9 

8D 

12 

91 

STA 

$9112 


F4CC 

8D 

10 

91 

STA 

$9110 


F4CF 

A9 

EE 


LDA 

#$EE 


F4D1 

8D 

IC 

91 

STA 

$911C 


F4D4 

A0 

00 


LDY 

#$00 


F4D6 

8C 

97 

02 

STY 

$0297 

RS 232 Status löschen 

F4D9 

C4 

B7 


CPY 

$B7 

Länge des "Fi1enamens" 

F4DB 

F0 

0A 


BEQ 

$F4E7 


F4DD 

Bl 

BB 


LDA 

( $B8) , Y 

die ersten 4 Zeichen des Filenamens 

F4DF 

99 

93 

02 

STA 

$0293,Y 

speichern 

F4E2 

C8 



INY 



F4E3 

C0 

04 


CPY 

#$04 


F4E5 

D0 

F2 


BNE 

$F4D9 


F4E7 

20 

27 

F0 

JSR 

$F027 

Anzahl der Datenbits berechnen 

F4EA 

8E 

98 

02 

STX 

$0298 

und speichern 

F4ED 

AD 

93 

02 

LDA 

$0293 

Kontrol1register 

F4F0 

29 

0F 


AND 

#$0F 

Bits für Baud-Rate isolieren 

F4F2 

D0 

00 


BNE 

$F4F4 


F4F4 

0A 



ASL 



F4F5 

AA 



TAX 



F4F6 

BD 

5A 

FF 

LDA 

$FF5A,X 


F 4 F 9 

0A 



ASL 



F4FA 

A8 



TAY 



F4FB 

BD 

5B 

FF 

LDA 

$FF5B,X 

Zei tkonstanten -für Baud-Rate 

F4FE 

2A 



RÜL 



F4FF 

48 



PHA 



F500 

98 



TYA 



F501 

69 

C8 


ADC 

#$C8 


F503 

BD 

99 

02 

STA 

$0299 


F506 

68 



PLA 



F507 

69 

00 


ADC 

#$00 


F509 

8D 

9A 

02 

STA 

$029A 


F50C 

AD 

94 

02 

LDA 

$0294 


F50F 

4A 



LSR 



F510 

90 

09 


BCC 

$F51B 


F512 

AD 

20 

91 

LDA 

$9120 


F515 

0 A 



ASL 



F516 

B0 

03 


BCS 

$F51B 


F518 

4C 

16 

F0 

JMP 

$F016 


F51B 

AD 

9B 

02 

LDA 

$029B 


F51E 

8D 

9C 

02 

STA 

$029C 

Pufferzeiger für RS 232 Ein/Ausgabe setzen 

F521 

AD 

9E 

02 

LDA 

$029E 


F524 

8D 

9D 

02 

STA 

$029D 


F527 

20 

75 

FE 

JSR 

$FE75 

Memory-Top holen 
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F52A 

A5 

F3 


LDA 

$FB 

F52C 

D0 

05 


BNE 

$F533 

F52E 

88 



DEY 


F52F 

84 

FS 


STY 

$FB 

F531 

86 

F7 


STX 

$F7 

F533 

A5 

FA 


LDA 

$FA 

F535 

D0 

05 


BNE 

$F53C 

F537 

88 



DEY 


F538 

84 

FA 


STY 

IFA 

F53A 

86 

F9 


STX 

$F9 

F53C 

38 



SEC 


F53D 

A9 

F0 


LDA 

#$F0 

F53F 

4C 

7B 

FE 

JMP 

$FE7B 

***************************** 

F542 

86 

C3 


STX 

$C3 

F544 

84 

C4 


STY 

$C4 

F546 

6C 

30 

03 

JMP 

($0330) 

F549 

85 

93 


STA 

$93 

F54B 

A9 

00 


LDA 

#$00 

F54D 

85 

90 


STA 

$90 

F54F 

A5 

BA 


LDA 

$SA 

F551 

D0 

03 


BNE 

$F556 

F553 

4C 

96 

F7 

JMP 

$ F 7 9 6 

F556 

C9 

03 


CMP 

#$03 

F558 

F 0 

F9 


BEQ 

IF553 

F55A 

90 

6E 


BCC 

IF5CA 

***************************** 

F55C 

A4 

B7 


LDY 

$B7 

F55E 

D0 

03 


BNE 

IF563 

F560 

4C 

93 

F7 

JMP 

$ F 7 9 3 

F563 

20 

BC 

E4 

J SR 

$E4BC 

F566 

A9 

60 


LDA 

#$60 

F568 

85 

B9 


STA 

$B9 

F56A 

20 

95 

F 4 

JSR 

$F495 

F56D 

A5 

BA 


LDA 

$BA 

F56F 

20 

14 

EE 

JSR 

$EE 14 

F572 

A5 

B9 


LDA 

$B9 

F574 

20 

CE 

EE 

JSR 

$EECE 

F577 

20 

19 

EF 

JSR 

$EF 19 

F57A 

85 

AE 


STA 

$AE 

F57C 

A5 

90 


LDA 

$90 

F57E 

4 A 



LSR 


F57F 

4 A 



LSR 


F580 

B0 

45 


BCS 

IF5C7 

F5S2 

20 

19 

EF 

JSR 

$EF 19 

F585 

85 

AF 


STA 

$AF 

F587 

20 

CI 

E4 

JSR 

$E4C1 

F58A 

A9 

FD 


LDA 

#$FD 

F58C 

25 

90 


AND 

$90 

F58E 

85 

90 


STA 

$90 

F590 

20 

El 

FF 

JSR 

$FFE1 

F593 

D0 

03 


BNE 

$F598 

F 595 

4C 

CB 

F6 

JMP 

$F6CB 

F598 

20 

19 

EF 

JSR 

$EF 19 

F59B 

AA 



TAX 


F59C 

A5 

90 


LDA 

$90 

F59E 

4 A 



LSR 


F59F 

4 A 



LSR 



Zeiger •für RS 232 Eingabepuffer 


Zeiger für RS 232 Ausgabepuffer 


Memory-Top neu setzen 

LOAD - Routine 
Startödresse speichern 

JMP $F549 
Load/Verify-Flag 

STatus löschen 

Primäradresse 

ungleich null ? 

gibt 'illegal device number' 

Bi1dschirm ? 

vom Band 

LOAD vom IEC-Bus 
Länge des Filnamens 

gibt ' missing fi1ename ' 

'searching for name' ausgeben 

Sekundäradresse 

Null für Load 

File auf IEC-Bus eröffnen 

Gerätenummer 

TALK senden 

Sekundäradresse für TALK senden 
ein Zeichen vom IEC-Bus holen 
Startadresse Lo 
STatus 


Time out, dann Fehler 
ein Zeichen vom IEC-Bus holen 
Startadresse Hi 
Startadresse für Load setzen 


Status setzen 
STOP-Taste gedrückt ? 
nein 

Datei auf IEC-Bus schließen 
ein Zeichen vom IEC-Bus holen 

Status 



F5A0 

B0 

E8 


BCS 

IF58A 


F5A2 

8A 



TXA 



F5 A3 

A4 

93 


LDY 

193 

Load/Verify-F1aq 

F5A5 

F0 

0C 


BEQ 

$F5B3 


F5A7 

A0 

00 


LDY 

#$00 


F5A9 

Dl 

AE 


CMP 

($AE) ,Y 

VERIFY 

F5AB 

F0 

08 


BEQ 

$F5B5 


F5AD 

A9 

10 


LDA 

#$10 

keine Übereinstimmung 

F5AF 

20 

6A 

FE 

J SR 

$FE6A 

STatus setzen 

F5B2 

2C 



.BYTE $2C 


F5B3 

91 

AE 


STA 

UAE) ,Y 

Byte abspeichern 

F5B5 

E6 

AE 


INC 

$AE 


F5B7 

D0 

02 


BNE 

$F5BB 


F5B9 

E6 

AF 


INC 

$AF 

Zeiger erhöhen 

F5BB 

24 

90 


BIT 

$90 


F5BD 

50 

CB 


BVC 

$F58A 

' Eö I ' ? 

F5BF 

20 

F h 

EE 

J SR 

$EEF6 

UNLISTEN senden 

F5C2 

20 

DA 

F 6 

JSR 

$F6DA 

CLOSE 

F5C5 

90 

7A 


BCC 

$F64 i 


F5C7 

4C 

87 

F7 

JMP 

IF787 

gibt 'File not f ound ' 

****************************** 


F5CA 

C9 

02 


CMP 

#$02 

RS 232 ? 

F5CC 

D0 

03 


BNE 

IF5D1 

nein 

F5CE 

4C 

B9 

F0 

JMP 

IF0B9 

sonst 'illegal quantity' 

****************************** 

LOAD vom Band 

F5D1 

20 

4D 

F8 

JSR 

IF84D 

Startadresse des Bandpuufers holen 

F5D4 

B0 

03 


BCS 

$F5D9 


F5D6 

40 

96 

F7 

JMP 

$F796 

gibt 'illegal device number' 

F5D9 

20 

94 

F8 

JSR 

$FB94 

wartet auf PLAY-Taste 

F5DC 

B0 

68 


BCS 

$F646 


F5DE 

20 

47 

F 6 

JSR 

$F647 

'searching for name' 

F5E1 

A5 

B7 


LDA 

$B7 

Länge des Filenames 

F5E3 

F0 

09 


BEQ 

$F5EE 


F5E5 

20 

67 

F8 

JSR 

$F867 

gewünschten Tapeheader suchen 

F5E8 

90 

0B 


BCC 

$F5F5 


F5EA 

F0 

5A 


BEQ 

$F646 


F5EE 

20 

AF 

F7 

JSR 

$F7AF 

nächsten Tapeheader suchen 

F5F1 

F0 

53 


BEQ 

$F646 


F5F3 

B0 

D2 


BCS 

IF5C7 


F5F5 

A5 

90 


LDA 

$90 


F5F7 

29 

10 


AND 

#$10 

STatus testen 

F5F9 

38 



SEC 



F5FA 

D0 

4A 


BNE 

$F646 


F5FC 

E0 

01 


CPX 

#$01 

Headertyp 1 = BASIC-Programm (verschieblich) 

F5FE 

F0 

11 


BEQ 

$F611 


F600 

E8 

03 


CPX 

#$03 

3 - Maschinenprogramm (absolut laden) 

F602 

D0 

DD 


BNE 

$F5E 1 


F604 

A0 

01 


LDY 

#$01 


F606 

Bl 

B2 


LDA 

($B2),Y 

Startadresse low 

F608 

85 

03 


STA 

$C3 


F60A 

C8 



INY 



F60B 

Bl 

B2 


LDA 

i $B2) , Y 

Startadresse high 

F60D 

85 

04 


STA 

$C4 


F60F 

B0 

04 


BCS 

$F615 


F611 

A5 

B9 


LDA 

$B9 

Sekundäradresse 

F61 3 

D0 

EF 


BNE 

$F604 

ungleich null, dann absolut laden 

F615 

A0 

03 


LDY 

#$03 


F 61 7 

Bl 

B2 


LDA 

($B2),Y 
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F619 

A0 

01 


LDY 

#$01 

F61B 

Fl 

B2 


SBC 

($B2),Y 

F61D 

AA 



TAX 


F61E 

A0 

04 


LDY 

#$04 

F620 

Bl 

B2 


LDA 

($B2) ,Y 

F622 

A0 

02 


LDY 

#$02 

F624 

Fl 

B2 


SBC 

( $B2) , Y 

F626 

A8 



TAY 


F627 

18 



CLC 


F62B 

8A 



TXA 


F629 

65 

C3 


ADC 

$C3 

F62S 

85 

AE 


STA 

$AE 

F62D 

98 



TYA 


F62E 

65 

C4 


ADC 

$C4 

F630 

85 

AF 


STA 

$AF 

F632 

A5 

C3 


LDA 

$C3 

F634 

85 

Ci 


STA 

$C1 

F636 

A5 

C4 


LDA 

$C4 

F638 

85 

C2 


STA 

$C2 

F63A 

20 

6A 

F6 

JSR 

$F66A 

F63D 

20 

C9 

F8 

JSR 

$F8C9 

F640 

24 



.BYTE $24 

F641 

1B 



CLC 


F642 

A6 

AE 


LDX 

$AE 

F644 

A4 

AF 


LDY 

IAF 

F646 

60 



RTS 


***************************** 

F647 

A5 

9D 


LDA 

$9D 

F649 

10 

IE 


BPL 

$F669 

F64B 

A0 

0C 


LDY 

#$0C 

F64D 

20 

E6 

Fl 

JSR 

$F 1E6 

F650 

A5 

B7 


LDA 

$B7 

F 6 5 2 

F0 

15 


BEQ 

$F669 

F654 

A0 

17 


LDY 

#$17 

F656 

20 

E6 

Fl 

JSR 

$F 1E6 

F659 

A4 

B7 


LDY 

$B7 

F65B 

F0 

00 


BEQ 

$F669 

F65F 

Bl 

BB 


LDA 

($BB),Y 

F561 

20 

D2 

FF 

JSR 

$FFD2 

F664 

C8 



I NY 


F665 

C4 

B7 


CPY 

$B7 

F667 

D0 

F6 


BNE 

$F65F 

F669 

60 



RTS 


****************************** 

F66A 

A0 

49 


LDY 

#$49 

F66C 

A5 

93 


LDA 

$93 

F66E 

F0 

02 


BEQ 

$F672 

F670 

A0 

59 


LDY 

#$59 

F672 

4C 

E2 

Fl 

JMP 

$F1E2 

****************************** 

F675 

86 

AE 


STX 

$AE 

F677 

84 

AF 


STY 

$AF 

F679 

AA 



TAX 


F67A 

B5 

00 


LDA 

$00,X 

F67C 

85 

CI 


STA 

$C1 

F67E 

B5 

01 


LDA 

$01 ,X 

F680 

85 

C2 


STA 

$C2 


Endadresse 


minus Startadresse 


gleich Startadresse 


Programm!änge + Startadresse 
gleich Endadresse 


Startadresse nach $C1/$C2 


' loading/verifying' ausgeben 
Programm vom Band laden 


Endadresse nach X/Y 


'searching for filename' ausgeben 
Direkt-Hodus testen 
nein, dann übergehen 
Offset für 'searching' 

Meldung ausgeben 
Länge des Filenamens 
gleich null, dann -fertig 
Offset für 'for' 

Meldung ausgeben 
Länge des Filenamens 
gleich null, dann fertig 
Fi 1enamen 
ausgeben 


' 1oading/verifying' ausgeben 
Offset für '1oading ' 

Load/Verify-Flag 
Load, dann ausgeben 
Offset für 'verifying ' 
Meldung ausgeben 


SAVE-Routine 

Endadresse 


Programmstartadresse 
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JHP *F685 
Primäradresse 
nicht null ? 

gibt 'illegal device number’ 

Bildschirm, dann Fehler 
Band 

Speichern aut IEC-Bus 
Sekundäradresse für SAVE 


F682 

6C 

32 

03 

JHP 

($0332) 

F685 

A5 

BA 


LDA 

*BA 

F6B7 

D0 

03 


BNE 

*F68C 

F689 

4C 

96 

F7 

JMP 

*F796 

F6BC 

C9 

03 


CMP 

#*03 

F68E 

F 0 

F 9 


BEQ 

IF689 

F690 

90 

5F 


BCC 

*F6F 1 

***************************** 

F692 

A9 

61 


LDA 

#$61 

F694 

85 

B9 


STA 

*B9 

F696 

A4 

B7 


LDY 

*B7 

F698 

D0 

03 


BNE 

IF69D 

F69A 

4C 

93 

F7 

JMP 

*F793 

F69D 

20 

95 

F4 

J SR 

*F495 

F6A0 

20 

28 

F7 

JSR 

*F728 

F6A3 

A5 

BA 


LDA 

*BA 

F6A5 

20 

17 

EE 

JSR 

IEE 17 

F6A8 

A5 

B9 


LDA 

*B9 

F6AA 

20 

C0 

EE 

JSR 

*EEC0 

F6AD 

A0 

00 


LDY 

#*00 

F6AF 

20 

D2 

FB 

JSR 

*FBD2 

F6B2 

A5 

AC 


LDA 

*AC 

F6B4 

20 

E4 

EE 

JSR 

*EEE4 

F6B7 

A5 

AD 


LDA 

*AD 

F6B9 

20 

E4 

EE 

JSR 

*EEE4 

F6BC 

20 

11 

FD 

JSR 

*FD 11 

F6BF 

B0 

16 


BCS 

*F6D7 

F6C1 

Bl 

AC 


LDA 

(*AC),Y 

F6C3 

20 

E4 

EE 

JSR 

*EEE4 

F6C6 

20 

El 

FF 

JSR 

*FFE 1 

F6C9 

D0 

07 


BNE 

*F6D2 

F6CB 

20 

DA 

F6 

JSR 

*F6DA 

F6CE 

A9 

00 


LDA 

#*00 

F6D0 

38 



SEC 


F6D1 

60 



RTS 


F6D2 

20 

1B 

FD 

JSR 

IFD1B 

F6D5 

D0 

E5 


BNE 

*F6BC 

F6D7 

20 

04 

EF 

JSR 

*EF04 

F6DA 

24 

B9 


BIT 

*B9 

F6DC 

30 

11 


BMI 

*F6EF 

F6DE 

A5 

BA 


LDA 

*BA 

F6E0 

20 

17 

EE 

JSR 

*EE 1 7 

F6E3 

A5 

B9 


LDA 

*B9 

F6E5 

29 

EF 


AND 

#*EF 

F6E7 

09 

E0 


QRA 

#*E0 

F6E9 

20 

C0 

EE 

JSR 

*EEC0 

F6EC 

20 

04 

EF 

JSR 

*EF04 

F6EF 

18 



CLC 


F6F0 

60 



RTS 


F6F1 

C9 

02 


CMP 

#*02 

F6F3 

D0 

03 


BNE 

*F6F8 

F6F5 

4C 

B9 

F0 

JMP 

*F0B9 

***************************** 

F6F8 

20 

4D 

F8 

JSR 

*F84D 

F6FB 

90 

8C 


BCC 

*F689 

F6FD 

20 

B7 

F8 

JSR 

*F8B7 

F700 

B0 

25 


BCS 

*F727 


Länge des Filenamens 

nicht null ? 

sonst 'missing filename' 

Filenamen auf IEC-Bus ausgeben 

'SAVING Name' ausgeben 

Primär-Adresse 

LISTEN senden 

Sekundäradresse 

für LISTEN senden 


Primäradresse 
LISTEN senden 
Sekundäradresse 


ausgeben 
UNLISTEN senden 


Gerätenummer durch 2 

RS 232, dann 'illegal device number' 

SAVE auf Band 

Startadresse des Bandpuffers holen 
wartet auf PLAY & RECORD-Taste 


Startadresse nach *AC/*AD 

Startadresse low 

senden 

high 

senden 

Endadresse schon erreicht ? 
ja 

Progr amm-Bytes 
senden 

STOP-Taste gedrückt ? 
nein 

IEC-Bus Kanal schließen 

Flag für 'break' setzen 

laufende Adresse erhöhen 

UNLISTEN senden 
Sekundäradresse 
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F702 

20 

28 

F7 

JSR $F728 

'saving' ausqeben 

F705 

A2 

03 


LDX #$03 

Header-Typ 3 - Maschinenprogramm (absolut) 

F707 

A5 

B9 


LDA $B9 

Sekundäradresse 

F709 

29 

01 


AND #$01 

Bit 0 gesetzt (1 oder 3) 

F70B 

D0 

02 


BNE $F70F 

ja, dann Maschinenprogramm 

F70D 

A2 

01 


LDX #$01 

Header-Typ 1 = BASIC-Programm (verschieb1icl 

F70F 

8A 



TXA 


F710 

20 

E7 

F7 

JSR $F7E7 

Header auf Band schreiben 

F713 

B0 

12 


BCS $F727 

Aussprung bei STOP-Taste 

F715 

20 

E6 

FB 

JSR $F8E6 

Programm auf Band schreiben 

F7 i 8 

B0 

0D 


BCS $F727 

Aussprung bei STOP-Taste 

F71A 

A5 

B9 


LDA $B9 

Sekundäradresse 

F71C 

29 

02 


AND #$02 

Bit 1 gesetzt (2 oder 3) 

F71E 

F0 

06 


BEQ $F726 

nein, dann fertig 

F720 

A9 

05 


LDA #$05 

'EOT' - Kennzeichen 

F722 

20 

E7 

F7 

JSR $F7E7 

Block auf Band schreiben 

F725 

24 



.BYTE $2C 


F726 

18 



CLC 


F727 

60 



RTS 


»»fr**#**###*#***#*##*###***#* 

'saving' ausgeben 

F72B 

A5 

9D 


LDA $9D 

Direkt-Modus testen 

F72A 

10 

FB 


BPL $F727 

Programm, dann fertig 

F72C 

A0 

51 


LDY #$51 

Offset für 'saving' 

F72E 

20 

E6 

Fl 

JSR $F1E6 

Meldung ausgeben 

F731 

4C 

59 

F6 

JMP $F659 

Filenamen ausgeben 

***************************** 

Uhrzeit erhöhen und STOP-Taste abfragen 

F734 

A2 

00 


LDX #$00 


F736 

E6 

A2 


INC $A2 


F738 

D0 

06 


BNE $F740 


F73A 

E6 

Al 


INC $A 1 

Zeit erhöhen 

F73C 

D0 

02 


BNE $F740 


F73E 

E6 

A0 


INC $A0 


F740 

38 



SEC 


F74 1 

A5 

A2 


LDA $A2 


F743 

E9 

01 


SBC #$01 


F745 

A5 

Al 


LDA $A1 


F747 

E9 

1A 


SBC #$1A 


F749 

A5 

A0 


LDA $A0 


F74B 

E9 

4F 


SBC #$4F 


F74D 

90 

06 


BCC $F755 

noch nicht 24 h ? 

F74F 

86 

A0 


STX $A0 


F751 

86 

Al 


STX $A1 

Uhr auf Null stellen 

F753 

86 

A2 


STX $A2 


F755 

AD 

2F 

91 

LDA $912F 


F758 

CD 

2F 

91 

CMP $912F 


F75B 

D0 

F8 


BNE $F755 


F75D 

85 

91 


STA $91 

Flag für RUN/STOP-Taste setzen 

F75F 

60 



RTS 


***************************** 

TIME holen 

F760 

78 



SEI 


F761 

A5 

A2 


LDA $A2 


F763 

A6 

Al 


LDX $A 1 

TIME nach A/X/Y 

F765 

A4 

A0 


LDY $A0 



TIME setzen 


**#****#####*****#******##*## 
F767 78 SEI 

F768 85 A2 STA $A2 
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F76A 

86 

Al 

STX $A1 

A/X/Y nach TIME speichern 

F76C 

84 

A0 

STY $A0 


F76E 

58 


CLI 


F76F 

60 


RTS 


***************************** 

STOP-Taste abfragen 

F770 

A5 

91 

LDA $91 

Flag für STOP-Taste 

F772 

C9 

FE 

CMP #$FE 

testen 

F774 

D0 

07 

BNE $F77D 


F776 

08 


PHP 


F777 

20 

CC FF 

JSR $FFCC 

CLRCH I/O-Kanäle rücksetzen 

F77A 

85 

C6 

STA $C6 


F77C 

28 


PLP 


F77D 

60 


RTS 


***************************** 

Meldungen des Betriebssystems 

F77E 

A9 

01 

LDA #$01 


F780 

2C 


.BYTE $2C 


F781 

A9 

02 

LDA #$02 


F783 

2C 


.BYTE $2C 


F7B4 

A9 

03 

LDA #$03 


F786 

2C 


.BYTE $2C 


F787 

A9 

04 

LDA #$04 


F 7 8 9 

2C 


.BYTE $2C 


F78A 

A9 

05 

LDA #$05 


F78C 

2C 


.BYTE $2C 


F784 

A9 

06 

LDA #$06 


F78F 

2C 


.BYTE $2C 


F784 

A9 

07 ’ 

LDA #$07 


F792 

2C 


.BYTE $2C 


F784 

A9 

08 

LDA #$08 


F795 

2C 


.BYTE $2C 


F784 

A9 

09 

LDA #$09 


F798 

48 


PHA 


F799 

20 

CC FF 

JSR $FFCC 

CLRCH I/O-Kanäle rücksetzen 

F79C 

A0 

00 

LDY #$00 


F79E 

24 

9D 

BIT $9D 

prüft auf Bit 6 im Pgr/Direkt- 

F7A0 

50 

0A 

BVC $F7AC 


F7A2 

20 

E6 Fl 

JSR $F1E6 

' I/Q-ERROR# X' X=0..9 

F7A5 

68 


PLA 


F7A6 

48 


PHA 


F7A7 

09 

30 

ORA #$30 

Zahl nach ASCII wandien 

F7A9 

20 

D2 FF 

JSR $FFD2 

und ausgeben 

F7AC 

68 


PLA 


F7AD 

38 


SEC 


F7AE 

60 


RTS 


***************************** 

Programm Header vom Band lesei 

F7AF 

A 5 

93 

LDA $93 

Load/Verify-Flag retten 

F7B1 

48 


PHA 


F7B2 

20 

C0 F8 

JSR $F8C0 

einen Black vom Band lesen 

F7B5 

68 


PLA 


F7B6 

85 

93 

STA $93 


F7BS 

B0 

2C 

BCS $F7E6 


F7BA 

A0 

00 

LDY #$00 


F7BC 

Bl 

B2 

LDA ($B2),Y 

Kontrol1byte 

F7BE 

C9 

05 

CMP #$05 

'EOT'-Block ? 

F7C0 

F0 

24 

BEQ $F7E6 


F7C2 

C9 

01 

CMP #$01 

BAS IC-Programm ? 

F7C4 

F 0 

08 

BEQ $F7CE 
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Maschinenprogramm ? 


F7C6 C9 133 CMP #$03 

F7CB F0 04 BEQ $F7CE 

F7CA C9 04 CMP #104 Datenheader ? 

F7CC D0 El BNE $F7AF von vorne 

F7CE AA TAX 

F7CF 24 9D BIT $9D prüft auf Bit 6 im Pgr/Direkt-Flag 

F7D1 10 11 BPL $F7E4 Direkt-Modus ? 

F7D3 A0 63 LDV #$63 Offset für 'found' 

F7D5 20 E6 Fi JSR IF1E6 Meldung ausgeben 

F7D8 A0 05 LDY #105 

F7DA Bl B2 LDA ($B2),Y Filenamen 

F7DC 20 D2 FF JSR $FFD2 ausgeben 

F7DF C8 INY 

F7E0 C0 15 CPY #$15 

F7E2 D0 F6 BNE IF7DA 

F7E4 18 CLC 

F7E5 B8 DEY 

F7E6 60 RTS 

***************************** Header generieren und auf Band schreiben 


F7E7 

85 

9E 

STA 

$9E 

Header-Typ 

F7E9 

20 

4D F8 

JSR 

IF84D 

Bandpufferadresse holen 

F7EC 

90 

5E 

BCC 

IF84C 


F7EE 

A5 

C2 

LDA 

$C2 


F7F0 

48 


PHA 


Start adresse 

F7F1 

A5 

CI 

LDA 

$C1 


F7F3 

48 


PHA 



F7F4 

A5 

AF 

LDA 

$AF 


F7F6 

48 


PHA 


Endadresse 

F7F7 

A5 

AE 

LDA 

$AE 


F7F9 

48 


PHA 



F7FA 

A0 

BF 

LDY 

#$BF 

Pufferlänge minus 1 

F7FC 

A9 

20 

LDA 

#$20 


F7FE 

91 

B2 

STA 

($B2) ,Y 

Bandpuffer löschen 

F800 

88 


DEY 



F801 

D0 

FB 

BNE 

IF7FE 


F803 

A5 

9E 

LDA 

$9E 

Haedertyp 

F 805 

91 

B2 

STA 

($B2) ,Y 


F807 

C8 


INY 



FS08 

A5 

CI 

LDA 

$C1 


F80A 

91 

B2 

STA 

($B2),Y 


F80C 

C8 


INY 



F80D 

A5 

C2 

LDA 

$C2 

Start adresse 

F80F 

91 

B2 

STA 

($B2) ,Y 


FBI 1 

CS 


INY 



F812 

A5 

AE 

LDA 

$AE 


FSH 

91 

B2 

STA 

f$B2),Y 


F816 

C8 


INY 



F817 

A5 

AF 

LDA 

$AF 

Endadresse 

F819 

91 

B2 

STA 

($B2) , Y 


FBI B 

C8 


INY 



F81C 

84 

9F 

STY 

$9F 


F81E 

A0 

00 

LDY 

#$00 


F820 

84 

9E 

STY 

$9E 


F822 

A4 

9E 

LDY 

$9E 


F824 

C4 

B7 

CPY 

$B7 


F826 

F 0 

0C 

BEQ 

$FB34 


F828 

Bl 

BB 

LDA 

($BB) ,Y 

Fi 1enamen 

F82A 

A4 

9 F 

LDY 

$9F 


F82C 

91 

B2 

STA 

($B2) ,Y 
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F32E 

E6 

9E 

INC 

$9E 

F830 

E6 

9F 

INC 

$9F 

F632 

D0 

EE 

BNE 

♦ F022 

F834 

20 

54 FB 

JSR 

$F854 

F837 

A9 

69 

LDA 

#$69 

F839 

85 

AB 

STA 

$AB 

FS3B 

20 

EA F8 

JSR 

$F8EA 

F83E 

A8 


TAY 


F83F 

68 


PLA 


FS40 

85 

AE 

STA 

$AE 

F842 

68 


PLA 


F843 

B5 

AF 

STA 

$AF 

F845 

68 


PLA 


F846 

85 

CI 

STA 

$Ci 

F848 

68 


PLA 


F849 

85 

C2 

STA 

$C2 

F84B 

98 


TYA 


F84C 

60 


RTS 


***************************** 

F84D 

A6 

B2 

LDX 

$82 

F84F 

A4 

B3 

LDY 

$B3 

F851 

C0 

02 

CPY 

#$02 

F853 

60 


RTS 


***************************** 

F854 

20 

4D F8 

JSR 

$F84D 

F857 

8A 


TXA 


F858 

85 

Ci 

STA 

$C1 

F85A 

18 


CLC 


F85B 

69 

Cß 

ADC 

#$C0 

F85D 

85 

AE 

STA 

♦ AE 

F85F 

98 


TYA 


F860 

85 

C2 

STA 

$C2 

FB62 

69 

00 

ADC 

#$00 

F864 

85 

AF 

STA 

$ AF 

F866 

60 


RTS 


***************************** 

F867 

20 

AF F7 

JSR 

$F7AF 

F86A 

80 

ID 

BCS 

IF889 

F86C 

A0 

05 

LDY 

#$05 

F86E 

84 

9F 

STY 

$9F 

F870 

A0 

00 

LDY 

#$00 

F872 

84 

9E 

STY 

$9E 

F874 

C4 

B7 

CPY 

$B7 

F876 

F0 

10 

BEQ 

$F888 

F878 

Bi 

BB 

LDA 

(♦BB),Y 

F87A 

A4 

9F 

LDY 

$9F 

F87C 

Dl 

B2 

CNP 

($B2) T Y 

F87E 

D0 

E7 

BNE 

$F867 

F880 

E6 

9E 

INC 

$9E 

F882 

E6 

9F 

INC 

$9F 

F884 

A4 

9E 

LDY 

$9E 

F886 

D0 

EC 

BtiE 

$F874 

F888 

18 


CLC 


F8B9 

60 


RTS 


***************************** 

F88A 

20 

4D F8 

JSR 

IF84D 


Start und Endadresse auf Bandpuffer 

Puffer auf Band schreiben 

Adressen zurückholen 


Startadresse des Bandpuffers holen 
X/X zeigt auf Bandpuffer 

Startadresse des Bandpuffers holen 
♦ Pufferende nach $AE/$AF 


Bandheader nach Hamen suchen 
nächsten Bandheaoer suchen 
'EDT * ? 

Offset für Filenamen im Header 

Länge des gesuchten Filenamens 

gesuchten Filenamen 

mit Filenamen auf Band 
vernleichen 

Zähier erhöhen 


Bandpufferzeiger erhöhen 
Bandpufferadresse holen 


Startadresse nach $C1/$C2 

Endadresse nach $AE/$AF 
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Zeiger erhöhen 


F88D E6 A6 INC $A6 

F88F A4 A6 LDY $A6 

F891 C0 C0 CF’Y #$C0 mit Maximalwert vergleichen 

FB93 60 RTS 

***************************** Wartet auf Play-Taste 

F894 20 AB F8 JSR $F8AB fragt Bandtaste ab 

F897 F0 IC BEQ $F8B5 gedrückt, dann fertig 

F899 A0 1B LDY #$1B Offset für 'press play on tape ' 

F89B 20 E6 Fl JSR $F1E6 Meldung ausgeben 

F89E 20 4B F9 JSR $F94B testet auf STOP-Taste 

F8A1 20 AB F8 JSR $F8 AB fragt Bandtaste ab 

F8A4 D0 F8 BNE IF89E 

F8A6 A0 6A LDY #$6A Offset für 'ok' 

F8A8 4C E6 Fl JMP IF1E6 Meldung ausgeben 

****** *********************** Abfrage auf Band taste 

F8AB A9 40 LDA #140 

F8AD 2C 1F 91 BIT *911F 

F8B0 D0 03 BNE $F8B5 testet Bandtaste 

F8B2 2C 1F 91 BIT *911F 

F8B5 18 CLC 

F8B6 60 RTS 

***************************** Wartet auf Record & Play-Taste 
F8B7 20 AB F8 JSR IFBAB fragt Bandtaste ab 

F8BA F0 F9 BEQ IF8B5 gedrückt, dann fertig 

F8BC A0 2E LDY #$2E Nummer für 'press record & play on tape' 

F8BE D0 DB BNE $F8?B weiter wie oben 

***************************** Block vom Band lesen 

F8C0 A9 00 LDA #$00 

F8C2 85 90 STA $90 Status 

F8C4 85 93 STA $93 und Load/Verify-F1ag löschen 

F8C6 23 54 F8 JSR IFS54 Bandpufferadresse holen 

***************************** Programm vom Band laden 

F8C9 20 94 F8 JSR $F894 wartet auf PLAY-Taste 

F8CC Bß 1F BCS $F8ED 

F8CE 78 SEI 

F8CF A9 00 LDA #$00 

F8D1 85 AA STA $AA 

F8D3 85 B4 STA $B4 

F8D5 85 B0 STA $B0 Arbeitsspeicher für IRQ-Routine'1öschen 

F8D7 85 9E STA $9E 

F8D9 85 9F STA $9F 

F8DB 85 9C STA $9C 

F8DD A9 82 LDA #$82 Konstante für Timing 

F8DF A2 0E LDX #$0E Nummer des IRQ-Vektors 

F8E1 D0 11 BNE $F8F4 

***************************** Bandpuffer auf Band schreiben 
F8E3 20 54 F8 JSR $F854 Bandpufferadresse holen 
F8E6 A9 14 LDA #$14 Checksumme 

F8E8 85 AB STA IAB 

***************************** Block bzw. Programm auf Band schreiben 
F8EA 20 B7 F8 JSR $F8B7 wartet auf Record & Play -Taste 

F8ED B0 68 BCS $F957 

F8EF 78 SEI 
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F8F0 

A9 

A0 


LDA 

#$A0 

Konstante -für Timing 

F8F2 

A2 

08 


LDX 

#$08 

Nummer des IRQ-Vektors 

F8F4 

A0 

7F 


LDV 

#$7F 


FSF6 

8C 

2E 

91 

STY 

$9 12E 


FBF9 

8D 

2E 

91 

STA 

$9 1 2E 


F8FC 

20 

60 

Fl 

J SR 

$F 160 

IER setzen 

F8FF 

AD 

14 

03 

LDA 

$0314 


F 9 0 2 

8D 

9F 

02 

STA 

$029F 

IRQ-Vektor 

F905 

AD 

15 

03 

LDA 

$0315 


F908 

8D 

A0 

02 

STA 

$02 A0 

nach $029F/$02A0 

F90B 

20 

FB 

FC 

JSR 

$FCFB 

IRG-Vektor für Band I/O setzen 

F90E 

A9 

02 


LDA 

#$02 


F910 

85 

BE 


STA 

$BE 

Anzahl der Blocks 

F912 

20 

DB 

FB 

JSR 

IFBDB 

serielle Ausgabe vorbereiten, Bitzähler 

F915 

AD 

IC 

91 

LDA 

$9 11C 


F910 

29 

FD 


AND 

#$FD 

Bandmotar einschalten 

F91A 

09 

0C 


ORA 

#$0C 


F91C 

8D 

IC 

91 

STA 

$9 11C 


F91F 

85 

C0 


STA 

$C0 

Flag für Bandmotor 

F921 

A2 

FF 


LDX 

#$ FF 


F923 

A0 

FF 


LDY 

#$FF 


F925 

88 



DEY 



F926 

D0 

FD 


BNE 

IF925 

Verzögerung für Bandhochlaufzeit 

F928 

CA 



DEX 



F929 

D0 

F8 


BNE 

$F923 


F92B 

8D 

29 

91 

STA 

$9129 


F92E 

58 



CLI 


Interrupt für Band I/O freigeben 

»♦fr************************** 

wartet auf I/O-Abschluß 

F92F 

AD 

A0 

02 

LDA 

$02A0 

IRQ-Vektar wieder auf Standard-Wert ? 

F932 

CD 

15 

03 

CMP 

$0315 


F935 

18 



CLC 



F936 

F0 

1F 


BEG 

$ F 9 5 7 

ja, dann fertig 

F938 

20 

4B 

F9 

JSR 

$F94B 

Test auf STOP-Taste 

F93B 

AD 

2D 

91 

LDA 

$912D. 


F93E 

29 

40 


AND 

#$40 


F940 

F0 

ED 


BEQ 

IF92F 


F942 

AD 

14 

91 

LDA 

$9114 


F945 

20 

34 

F7 

JSR 

$F734 

Uhr weiter stellen 

F948 

4C 

2F 

F9 

J MP 

$F92F 

weiter warten 

***************************** 

Testet auf STOP-Taste 

F94B 

20 

El 

FF 

JSR 

$ F F E1 

STOP-Taste gedrückt ? 

F94E 

18 



CLC 



F94F 

D0 

0B 


BNE 

IF95C 

nein, dann Rückkehr 

F951 

20 

CF 

FC 

JSR 

IFCCF 


F954 

38 



SEC 



F955 

68 



PLA 



F956 

68 



PLA 



F957 

A9 

00 


LDA 

#$00 


F959 

8D 

A0 

02 

STA 

$02A0 

Flag für Standard IRQ 

F95C 

60 



RTS 



***************************** 

Band für Lesen vorbereiten 

F95D 

86 

Bl 


STX 

$B1 


F95F 

A5 

B0 


LDA 

$B0 


F961 

0 A 



ASL 



F 962 

0A 



ASL 



F963 

18 



CLC 



F 964 

65 

B0 


ADC 

$B0 


F966 

18 



CLC 
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F967 
F969 
F96B 
F96D 
F96F 
F97 1 
F972 
F974 
F975 
F977 
F978 
F979 
F97C 
F97E 
F980 
F982 
F985 
F986 
F9B9 
F98C 
F98D 

***** 

F98E 

F99 1 

F993 

F994 

F997 

F99A 

F99C 

F99E 

F99F 

F9A2 

F9A5 

F9A6 

F9A8 

F9AA 

F9AB 

F9AD 

F9AE 

F9B0 

F9B2 

F9B3 

F9B5 

F9B8 

F9BA 

F9BC 

F9BE 

F9C0 

F9C3 
F9C5 
F9C7 
F9C9 
F9CB 
F9CD 
F9CF 
F9D1 
F9D2 
F9D4 


65 

Bl 


ADC 

$B1 

85 

Bl 


STA 

$B1 

A9 

00 


LDA 

#$00 

24 

B0 


BIT 

$B0 

30 

01 


BMI 

$ F 9 7 2 

2A 



ROL 


06 

Bl 


ASL 

$81 

2A 



ROL 


06 

Bl 


ASL 

$81 

2A 



ROL 


AA 



TAX 


AD 

28 

91 

LDA 

$9128 

C9 

15 


CMF 

#$15 

90 

F9 


BCC 

$F979 

65 

Bl 


ADC 

$B 1 

8D 

24 

91 

STA 

$9124 

8A 



TXA 


6D 

29 

91 

ADC 

$9129 

8D 

25 

91 

STA 

$9125 

58 



CLI 


60 



RTS 


HHHHHHHHHHHHHHHHHHHUHHHt 

AE 

29 

91 

LDX 

$9129 

A0 

FF 


LDY 

#$FF 

98 



TYA 


ED 

28 

91 

SBC 

$9128 

EC 

29 

91 

CPX 

$9129 

D0 

F2 


BNE 

$F98E 

86 

Bl 


STX 

$B 1 

AA 



TAX 


8C 

28 

91 

STY 

$9128 

8C 

29 

91 

STY 

$9129 

98 



TYA 


E5 

Bl 


SBC 

$B 1 

86 

Bl 


STX 

$B 1 

4A 



LSR 


66 

Bl 


ROR 

$B 1 

4 A 



LSR 


66 

Bi 


ROR 

$B 1 

A5 

B0 


LDA 

$B0 

18 



CLC 


69 

3C 


ADC 

#$3C 

2C 

21 

91 

BIT 

$9121 

C5 

Bl 


CMP 

$B 1 

B0 

4A 


BCS 

$FA06 

A6 

9C 


LDX 

$9C 

F 0 

03 


BEQ 

$F9C3 

4C 

AD 

FA 

JMP 

$FAAD 

A6 

A3 


LDX 

$A3 

30 

1B 


BMI 

$F9E2 

A2 

00 


LDX 

#$00 

69 

30 


ADC 

#$30 

65 

B0 


ADC 

$B0 

C5 

Bl 


CMP 

$B 1 

B0 

IC 


BCS 

$F9ED 

E8 



I NX 


69 

26 


ADC 

#$26 

65 

B0 


ADC 

$B0 


Interrupt-Routine für Band lesen 
Timer high 
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F9D6 C5 Bl CMP $B1 

F9D8 B0 17 BCS $F9F1 

F9DA 69 2C ADC #$2C 

F9DC 65 B0 ADC $B0 

F9DE C5 Bl CMP $B1 

F9E0 90 03 BCC $F9E5 

F9E2 4C 60 FA JMP $FA6ß 

F9E5 A5 B4 LDA $B4 

F9E7 F0 ID BEO $FA06 

F9E9 85 A8 STA $A8 

F9EB D0 19 BNE $FA06 

F9ED E6 A9 INC $A9 

F9EF B0 02 BCS $F9F3 

F9F1 C6 A9 DEC $A9 

F9F3 38 SEC 

F9F4 E9 13 SBC #$13 

F9F6 E5 Bl SBC $B1 

F9F8 65 92 ADC $92 

F9FA 85 92 STA $92 

F9FC A5 A4 LDA $A4 

F9FE 49 01 EOR #$01 

FA00 85 A4 STA $A4 

FA02 F0 21 BEQ $FA25 

FA04 86 D7 STX $D7 

FA06 A5 B4 LDA $B4 

FA08 F0 18 BEQ $FA22 

FA0A 2C 2D 91 BIT $912D 

FA0D 50 13 BVC $FA22 

FA0F A9 00 LDA #$00 

FA11 85 A4 STA $A4 

FA 13 A5 A3 LDA $A3 

FA 15 10 30 BPL $FA47 

FA 17 30 C9 BMI $F9E2 

FA 19 A2 A6 LDX #$A6 

FA1B 20 5D F9 JSR $F95D 

FA IE A5 9B LDA $9B 

FA20 D0 C3 BNE $F9E5 

FA22 4C 56 FF JMP $FF56 Rückkehr vom Interrupt 

FA25 A5 92 LDA $92 

FA27 F0 87 BEß $FA30 

FA29 30 03 BMI $FA2E 

FA2B C6 B0 DEC $B0 

FA2D 2C .BYTE $2C 

FA2E E6 B0 INC $B0 

FA30 A9 00 LDA #$00 

FA32 85 92 STA $92 

FA34 E4 D7 CPX $D7 

FA36 D0 0F BNE IFA47 

FA38 8A TXA 

FA39 D0 AA BNE $F9E5 

FA3B A5 A9 LDA $A9 

FA3D 30 C7 BMI $FA06 

FA3F C9 10 CMP #$10 

FA41 90 C3 BCC $FA06 

FA43 B5 96 STA $96 

FA45 B0 BF BCS IFA06 

FA47 8A TXA 

FA48 45 9B EOR $9B 
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FA4 A 

85 

9B 


STA 

$9B 

FA4C 

A 5 

B4 


LDA 

$B4 

FA4E 

F0 

D2 


BEQ 

$FA22 

FA50 

C6 

A3 


DEC 

$A3 

FA52 

30 

C5 


BMI 

$FA1 9 

FA54 

46 

D7 


LSR 

$D7 

FA56 

66 

BF 


ROR 

$BF 

FA58 

A2 

DA 


LDX 

#$DA 

FA5A 

20 

5D 

F9 

JSR 

$F95D 

FA5D 

4C 

56 

FF 

J MP 

IFF56 

FA60 

A5 

96 


LDA 

$96 

FA62 

F0 

04 


BED 

$FA68 

FA64 

A5 

B4 


LDA 

$B4 

FA66 

F0 

04 


BEQ 

$F A6C 

FA68 

A5 

A3 


LDA 

$ A3 

FA6A 

10 

85 


BPL 

$F9F 1 

FA6C 

46 

Bl 


LSR 

$B 1 

FA6E 

A9 

93 


LDA 

#193 

FA70 

38 



SEC 


FA7 1 

E5 

Bl 


SBC 

$B 1 

FA73 

65 

B0 


ADC 

$B0 

FA75 

0A 



ASL 


FA76 

AA 



TAX 


FA77 

20 

5D 

F9 

JSR 

$F95D 

FA7A 

E6 

9C 


INC 

$9C 

FA7C 

A5 

B4 


LDA 

$B4 

FA7E 

D0 

11 


BNE 

$FA9 1 

FA80 

A3 

96 


LDA 

$96 

FA82 

F0 

26 


BEQ 

IFAAA 

FA84 

85 

A8 


STA 

$A8 

FA86 

A9 

00 


LDA 

#$00 

FA88 

85 

96 


STA 

$96 

FA8A 

A9 

C0 


LDA 

#$C0 

FA8C 

8D 

2E 

91 

STA 

$912E 

FABF 

85 

B4 


STA 

$B4 

FA91 

A5 

96 


LDA 

$96 

FA93 

85 

B5 


STA 

$B5 

FA95 

F 0 

09 


BEQ 

$FAA0 

FA97 

A9 

00 


LDA 

#$00 

FA99 

85 

B4 


STA 

$B4 

FA9B 

A9 

40 


LDA 

#$40 

FA9D 

8D 

2E 

91 

STA 

$912E 

FAA0 

A5 

BF 


LDA 

$BF 

FAA2 

85 

BD 


STA 

$BD 

FAA4 

A5 

A8 


LDA 

$A8 

FAA6 

05 

A9 


ÖRA 

$ A9 

FAA8 

85 

B6 


STA 

$B6 

FAAA 

4C 

56 

FF 

JMP 

$FF56 

FAAD 

20 

DB 

FB 

JSR 

$FBDB 

FAB0 

85 

9C 


STA 

$9C 

FAB2 

A2 

DA 


LDX 

#$DA 

FAB4 

20 

5D 

F9 

JSR 

$F95D 

FAB7 

A5 

BE 


LDA 

$BE 

FAB9 

F0 

02 


BEQ 

$FABD 

FABB 

85 

A7 


STA 

$A7 

FABD 

A9 

0F 


LDA 

#$0F 

FABF 

24 

AA 


BIT 

$AA 

FAC1 

10 

17 


BPL 

$FADA 


Rückkehr vom Interrupt 


Rückkehr vom Interrupt 
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FAC3 

FAC5 

FAC7 

FAC9 

FACA 

FACC 

FACE 

FAD1 

FAD3 

FAD5 

FAD7 

FADA 

FADC 

FADE 

FAE0 

FAE2 

FAE4 

FAE6 

FAE8 

FAE9 

FAEB 

FAED 

FAEF 

FAF8 

FAF2 

FAF4 

FAF6 

FAF8 

FAFA 

FAFC 

FAFE 

FB01 

FB03 

F805 

FB07 

FB09 

FBßB 

FB0D 

FB0F 

FBI 1 

FB13 

FB 16 

FB 1 8 

FB i B 

FB1E 

FB20 

FB23 

FB25 

FB26 

FB28 

FB2A 

FB2C 

FB2E 

FB30 

FB32 

FB34 

FB36 

FB38 

FB3A 


A5 B5 

LDA $B5 


Dß 0C 

BNE $FAD3 


A6 BE 

LDX $BE 


CA 

DEX 


D0 0B 

BNE IFAD7 


A9 08 

LDA #$08 

'1ong black error ' 

20 6A FE 

JSR $FE6A 

STätus setzen 

Dß 04 

BNE $FAD7 


A9 00 

LDA #$00 


85 AA 

STA $AA 


4C 56 FF 

J MP $FF56 

Rückkehr vom Interrupt 

70 31 

BVS IFB0D 


D0 18 

BNE $FAF6 


A5 B5 

LDA $B5 


D0 F5 

BNE $FAD7 


A5 B6 

LDA $B6 


D0 Fl 

BNE $FAD7 


A5 A7 

LDA $A7 


4 A 

LSR 


A5 BD 

LDA $BD 


30 03 

BMI $FAFß 


90 18 

BCC IFB07 


18 

CLC 


B0 15 

BCS $FB07 


29 0F 

AND #$0F 


85 AA 

STA $AA 


C6 AA 

DEC IAA 


D0 DD 

BNE IFAD7 


A9 40 

LDA #140 


85 AA 

STA $AA 


20 D2 FB 

JSR $FBD2 


A9 00 

LDA #$00 


85 AB 

STA $AB 


F0 D0 

BEQ IFAD7 


A9 80 

LDA #$80 


85 AA 

STA $AA 


D0 CA 

BNE $FAD7 


A5 B5 

LDA $B5 


F0 0A 

BEQ $FB1B 


A9 04 

LDA #$04 

' short block error ' 

20 6A FE 

JSR $FE6A 

STatus setzen 

A9 00 

LDA #$00 


4C 97 FB 

JMP $FB97 


20 11 FD 

JSR $FD11 


90 03 

BCC $FB23 


4C 95 FB 

JMP $FB95 


A6 A7 

LDX $A7 


CA 

DEX 


F0 2D 

BEQ $FB55 


A5 93 

LDA $93 


F0 0C 

BEQ $FB3B 


A0 00 

LDY #$00 


A5 BD 

LDA $BD 


Dl AC 

CMP t$AC) t Y 


F0 04 

BEQ $FB38 


A9 01 

LDA #$01 


85 B6 

STA $B6 


A5 B6 

LDA $B6 


F0 4B 

BEQ $FB87 
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FB3C A2 3D LDX #$3D 

FB3E E4 9E CPX $9E 

F840 90 3E BCC $FB80 

FB42 A6 9E LDX $9E 

FB44 A5 AD LDA $AD 

FB46 9D 01 01 STA $0101,X 

FB49 A5 AC LDA $AC 

FB4B 9D 00 01 STA $0100,X 

FB4E E8 I NX 

FB4F E8 I NX 

FB50 86 9E STX $9E 

FB52 4C 87 FB JMP $FB87 

FB55 A6 9F LDX $9F 

FB57 E4 9E CPX $9E 

FB59 F0 35 BEQ $FB90 

FB5B A5 AC LDA $AC 

FB5D DD 00 01 CMP $0100,X Fehlerkorrektur bei Pass 2 

FB60 D0 2E BNE $FB9B 

FB62 A5 AD LDA $AD 

FB64 DD 01 01 CMP $0101,X 

FB67 D0 27 BNE IFB90 

FB69 E6 9F INC $9F 

FB6B E6 9F INC $9F 

FB6D A5 93 LDA $93 

FB6F F0 0B BEQ $FB7C 

FB71 A5 BD LDA $BD gelesenes Byte 

FB73 A0 00 LDY #$00 

FB75 Dl AC CMP ($AC),Y mit Speicherinhalt vergleichen 

FB77 F0 17 BEQ $FB90 

FB79 C8 I NY 

FB7A 84 B6 STY $B6 

FB7C A5 B6 ,LDA $B6 

FB7E F0 07 BEQ $FB87 

FBS0 A9 10 LDA #$10 'second pass error' 

FB82 20 6A FE JSR $FE6A STatus setzen 

FB85 D0 09 BNE $FB90 

FB87 A5 93 LDA $93 Verify ? 

FB89 D0 05 BNE $FB9ß ja 

FB8B A8 TAY 

FB8C A5 BD LDA $BD gelesenes Byte 

FBBE 91 AC STA f$AC),Y speichern 

FB90 20 1B FD JSR $FD1B Adresszeiger erhöhen 

FB93 D0 3A BNE $FBCF 

FB95 A9 80 LDA #$80 

FB97 85 AA STA $AA 

FB99 A6 BE LDX $BE Pass-Zähler 

FB9B CA DEX 

FB9C 30 02 BMI $FBA0 

FB9E 86 BE STX $BE 

FBA0 C6 A7 DEC $A7 

FBA2 F0 08 BEQ $FBAC 

FBA4 A5 9E LDA $9E 

FBA6 D0 27 BNE IFBCF 

FBA8 85 BE STA $BE 

FBAA F0 23 BEQ $FBCF 

FBAC 20 CF FC JSR $FCCF ein Pass beendet 

FBAF 20 D2 FB JSR $FBD2 Adressse wieder auf Programmanfang 

FBB2 A0 00 . LDY #$00 

FBB4 84 AB STY $AB 
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FBB6 

Bl AC 

LDA ($AC),Y 

Programm Checksumme berechnen 

FBB8 

45 AB 

EOR $AB 


FBBA 

85 AB 

STA 1AB 


FBBC 

20 1B FD 

JSR $FD 1B 

Adresszeiger erhöhen 

FBBF 

20 11 FD 

JSR $FD 11 

Endadresse schon erreicht ? 

FBC2 

90 F2 

BCC -IFBB6 

nein, weiter vergleichen 

FBC4 

A5 AB 

LDA $AB 

berechnete Checksumme 

FBC6 

45 BD 

EOR $BD 

mit Checksumme vom Band vergleichen 

FBC8 

F0 05 

BEQ $F8CF 

Checksumme ok ? 

FBCA 

A9 20 

LDA #$20 

'checksum error" 

FBCC 

20 6A FE 

JSR $FE6A 

STatus setzen 

FBCF 

4C 56 FF 

JMP $FF56 

Rückkehr vom Interrupt 

***************************** 

Adresszeiger auf Anfang setzen 

FBD2 

A5 C2 

LDA $C2 


FBD4 

85 AD 

STA $AD 


FBD6 

A5 CI 

LDA $C1 


FBU8 

85 AC 

STA $AC 


FBDA 

60 

RTS 


***************************** 

Bitzähler für serielle Ausgabe setzen 

FBDB 

A9 08 

LDA #108 


FBDD 

85 A3 

STA $ A3 


FBDF 

A9 00 

LDA #100 


FBE1 

85 A4 

STA $ A4 


FBE3 

85 AB 

STA $A8 


FBE5 

85 9B 

STA $9B 


FBE7 

85 A9 

STA $A9 


FBE9 

60 

RTS 


***************************** 

Ein Bit auf Band schreiben 

FBEA 

A5 BD 

LDA $BD 

Bit in $BD 

FBEC 

4 A 

LSR 

Bit 0 ins Carry 

FBED 

A9 60 

LDA #$60 

Zeit für i Bit 

FBEF 

90 02 

BCC IFBF3 


FBF 1 

A9 B0 

LDA #$B0 

Zeit für '0' Bit 

FBF3 

A2 00 

LDX #$00 


FBF5 

8D 28 91 

STA $9128 

Timer low 

FBF0 

8E 29 91 

STX $9129 

Timer high 

FBFB 

AD 20 91 

LDA $9120 


FBFE 

49 08 

EOR #$08 

Ausgabebit für Band invertieren 

FC00 

8D 20 91 

STA $9120 


FC03 

29 08 

AND #$08 


FC05 

60 

RTS 


FC06 

38 

SEC 


FC07 

66 AD 

ROR $AD 


FC09 

30 3C 

BMI $FC47 


***************************** 

Interrupt-Routine für Band schreiben 

FCEB 

A5 A8 

LDA $A8 


FC0D 

D0 12 

BNE $FC21 


FC0F 

A9 10 

LDA #$10 


FCli 

A2 01 

LDX #$01 


FC13 

20 F5 FB 

JSR $FBF5 

Takt auf Band schreiben 

FC 16 

D0 2F 

BNE $FC47 


FC18 

E6 AB 

INC $A8 


FC 1 A 

A5 AD 

LDA $AD 


FC1C 

10 29 

BPL $FC47 


FC1E 

4C 95 FC 

JMP $FC95 

zweiten BLock schreiben 

FC21 

A5 A9 

LDA $A9 


FC23 

D0 09 

BNE $FC2E 
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FC25 

20 

Fl 

FB 

JSR 

tFBFl 

FC28 

D0 

ID 


BNE 

$ FC47 

FC2A 

E6 

A9 


INC 

*A9 

FC2C 

D0 

19 


BNE 

*FC47 

FC2E 

20 

EA 

FB 

JSR 

*FBEA 

FC31 

D0 

14 


BNE 

*FC47 

FC33 

A 5 

A4 


LDA 

*A4 

FC35 

49 

01 


EOR 

#*01 

FC37 

85 

A4 


STA 

* A4 

FC39 

F0 

0F 


BEQ 

*FC4A 

FC3B 

A5 

BD 


LDA 

*BD 

FC3D 

49 

01 


EOR 

#*01 

FC3F 

85 

BD 


STA 

*BD 

FC4i 

29 

01 


AND 

#*01 

FC43 

45 

9B 


EOR 

*9B 

FC45 

85 

9B 


STA 

*9B 

FC47 

40 

56 

FF 

JMP 

IFF56 

FC4A 

46 

BD 


LSR 

*BD 

FC4C 

C6 

A3 


DEC 

* A3 

FC4E 

A5 

A3 


LDA 

*A3 

FC50 

F0 

3A 


BEQ 

*FCBC 

FC52 

10 

F3 


BPL 

*FC47 

FC54 

20 

DB 

FB 

JSR 

*FBDB 

FC57 

58 



CLI 


FC58 

A5 

A5 


LDA 

*A5 

FC5A 

F0 

12 


BEß 

*FC6E 

FC5C 

A2 

00 


LDX 

#*00 

FC5E 

86 

D7 


ST X 

*D7 

FC60 

06 

A5 


DEC 

*A5 

FC62 

A6 

BE 


LDX 

*BE 

FC64 

E0 

02 


CPX 

#*02 

FC66 

D0 

02 


BNE 

*FC6A 

FC68 

09 

80 


ORA 

#*80 

FC6A 

85 

BD 


STA 

*BD 

FC6C 

00 

D9 


BNE 

*FC47 

FC6E 

20 

11 

FD 

JSR 

*FD 11 

FC71 

90 

0A 


BCC 

IFC7D 

FC73 

D0 

91 


BNE 

*FC06 

FC75 

E6 

AD 


INC 

*AD 

FC77 

A5 

D7 


LDA 

*D7 

FC79 

85 

BD 


STA 

*BD 

FC7B 

B0 

CA 


BCS 

* FC47 

FC7D 

A0 

00 


LDY 

#*00 

FC7F 

Bl 

AC 


LDA 

(*AC) ,Y 

FC81 

85 

BD 


STA 

*BD 

FC83 

45 

D7 


EOR 

*D7 

FCB5 

85 

D7 


STA 

*D7 

FC87 

20 

1B 

FD 

JSR 

*FD1B 

FC8A 

D0 

BB 


BNE 

*FC47 

FC8C 

A5 

9B 


LDA 

*9B 

FC8E 

49 

01 


EOR 

#*01 

FC90 

85 

BD 


STA 

*BD 

FC92 

40 

56 

FF 

JMP 

*FF56 

FC95 

C6 

BE 


DEC 

IBE 

FC97 

00 

03 


BNE 

* FC9C 

FC99 

20 

08 

FD 

JSR 

*FD08 

FC9C 

A9 

50 


LDA 

#*50 

FC9E 

85 

A7 


STA 

*A7 


'0' schreiben 


Bit aut Band schreiben 


Bit für Ausgabe invertieren 

Rückkehr vom Interrupt 

nächstes Bit in Position 0 
Bitzähler erniedrigen 

nächstes Bit ausgeben 
Bitzähler wieder auf 8 setzen 


Endadresse schon erreicht ? 


zu sehriebenedes Byte 


Adresszeiger erhöhen 


Rückkehr vom Interrupt 

Zähler für Blocks erniedrigen 
noch ein Block ? 
nein, Band-Motor aus 
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FC Aß 

A2 

08 


LDX #$08 


FCA2 

?a 



SEI 


FCA3 

20 

FB 

FC 

JSR $FCFB 

IRQ setzen 

FCA6 

D0 

EA 


BNE $FC92 

Rückkehr vom Interrupt 

***************************** 

Interruptroutine für Band schreiben 

FCA8 

A9 

78 


LDA #$78 


FCAA 

20 

F3 

FB 

JSR $FBF3 

Bit auf Band schreiben 

FCAD 

D0 

E3 


BNE $FC92 


FCAF 

C6 

A7 


DEC $A7 


FCßl 

Dß 

DF 


BNE $FC92 

Rückkehr vom Interrupt 

FCB3 

20 

DB 

FB 

JSR $FBDB 

Bitzähler für serielle Ausgabe setzen 

FCB6 

C6 

AB 


DEC $AB 


FCB8 

10 

D8 


BPL $FC92 


FCBA 

A2 

0A 


LDX #$0A 


FCBC 

20 

FB 

FC 

JSR $FCFB 

IRQ-Vektor setzen 

FCBF 

58 



CLI 


FCCß 

E6 

AB 


INC $AB 


FCC2 

A5 

BE 


LDA $BE 


FCC4 

F0 

30 


BEQ $FCF6 


FCC6 

20 

D2 

FB 

JSR $FBD2 

Adresse wieder auf Anfang setzen 

FCC9 

A2 

09 


LDX #$09 


FCCB 

8 6 

A5 


STX $A5 


FCCD 

D0 

85 


BNE $FC54 


FCCF 

08 



PHP 


FCD0 

78 



SEI 


FCDi 

20 

08 

FD 

JSR $FD08 

Band-Motor ausschalten 

FCD4 

A9 

7F 


LDA #$7F 


FC D6 

8D 

2E 

91 

STA $912E 


FCD9 

A9 

F7 


LDA #$F7 


FCDB 

8D 

20 

91 

STA $9120 


FCDE 

A9 

40 


LDA #$40 


FCE0 

8D 

2B 

91 

STA $912B 


FCE3 

20 

39 

FE 

JSR $FE39 


FCE6 

AD 

A0 

02 

LDA I02A0 


FCE9 

F0 

09 


BEQ IFCF4 


FCEB 

8D 

15 

03 

STA $0315 

IRQ wieder auf Standard 

FCEE 

AD 

9F 

02 

LDA $029F 


FCF1 

8D 

14 

03 

STA $0314 


FCF4 

28 



PLP 


FCF5 

60 



RTS 


***************** 

************ 

IRQ-Vektor aus Tabelle setzen 

FCF6 

20 

CF 

FC 

JSR $FCCF 

IRQ auf Standard 

FCF9 

F0 

97 


BEQ $FC92 


FCFB 

BD 

E9 

FD 

LDA $FDE9,X 


FCFE 

3D 

14 

03 

STA $0314 

IRQ low 

FD01 

BD 

EA 

FD 

LDA $FDEA,X 


FD04 

8D 

15 

03 

STA $0315 

IRQ high 

FDB7 

68 



RTS 


***************************** 

Band-Motor ausschalten 

FD08 

AD 

IC 

91 

LDA $9 1 IC 


FD0B 

09 

0E 


QRA #$0E 


FD0D 

8D 

IC 

91 

STA $911C 


F010 

60 



RTS 


***************************** 

prüft auf Erreichen der Endadresse 

FD i 1 

38 



SEC 


FD 12 

A5 

AC 


LDA $AC 

laufende Adresse in $AC/$AD 



FD 14 

E 5 

AE 


SBC 

$AE 


FD 16 

A5 

AD 


LDA 

$AD 

Endadreese in $AE/$AF 

FD 18 

E5 

AF 


SBC 

$AF 


FD 1A 

60 



RTS 



***************************** 

Zeiger erhöhen 

FD 1B 

£6 

AC 


INC 

$AC 


FD ID 

D0 

02 


BNE 

*FD2i 

$AC/$AD 

FD1F 

E6 

AD 


INC 

$ AD 


FD2 1 

60 



RTS 



***************************** 

RESET-Routine 

FD22 

A2 

FF 


LDX 

#$FF 


FD24 

78 



SEI 


Stackpointer initialisieren 

FD25 

9A 



TXS 



FD26 

D8 



CLD 



FD27 

20 

3F 

FD 

JSR 

IFD3F 

ROM in $A000 ? 

FD2A 

D0 

03 


BNE 

$FD2F 


FD2C 

6C 

00 

A0 

JHP 

($A000) 

Sprung in ROM-Modul-Programm 

FD2F 

20 

8D 

FD 

JSR 

$FD8D 

Pointer setzen, RAM-Bereich Teststellen 

FD32 

20 

52 

FD 

JSR 

$FD52 

I/O-Vektoren $0314-$0335 setzen 

FD35 

20 

F9 

FD 

JSR 

$FDF9 

I/O-Register initialisieren 

FD38 

20 

18 

E5 

JSR 

$E51B 

Videocontroller und CLR SCREEN 

FD3B 

58 



CU 



FD3C 

6C 

00 

C0 

JMP 

UC000) 

JMP $E378 Sprung zum BASIC-Kaltstart 

***************************** 

prüft auf ROM in IA000 

FD3F 

A2 

05 


LDX 

#$05 


FD4 1 

BD 

4C 

FD 

LDA 

$FD4C,X 


FD44 

DD 

03 

A0 

CMP 

$A003,X 

vergleicht mit Identifikation 

FD47 

D0 

03 


BNE 

IFD4C 


FD49 

CA 



DEX 



FD4A 

D0 

F5 


BNE 

$FD41 


FD4C 

60 



RTS 



***************************** 

ROM — Modul Identifikation 

FD4D 

41 

30 

C3 C2 

CD 


' aßCBM ' 

***************************** 

setzt I/O-Vektoren 

FD5 i 

A2 

6D 


LDX 

#$6D 


FD54 

A0 

FD 


LDY 

#$FD 

Zeiger auf Vektorentabel1e 

FD56 

18 



CLC 



***************************** 

holt (C=l)/ setzt (C=0) I/G-Vektoren 

FD57 

86 

C3 


STX 

$C3 


FD59 

84 

C4 


STY 

$C4 

Zeiger auf Tabelle in X/Y 

FD5B 

A0 

1F 


LDY 

#$ 1 F 


FD5D 

B9 

14 

03 

LDA 

$03 14 , Y 


FD60 

B0 

02 


BCS 

$FD64 

Vektoren setzen/holen 

FD62 

Bl 

C3 


LDA 

( $C3) , Y 


FD64 

91 

C3 


STA 

($C3) , Y 


FD66 

99 

14 

03 

STA 

$0314,Y 


FD69 

88 



DEY 



FD6A 

10 

Fl 


BPL 

$FD5D 


FD6C 

60 



RTS 




***************************** Tabelle der Hardware- und I/O-Vektoren 
FD6D BF EA D2 FE AD FE ßfi F4 
FD75 4A F3 C7 F2 »9 F3 F3 F3 
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FD7D 0E F2 7A F2 70 F7 F5 Fi 
FD85 EF F3 D2 FE 49 F5 85 F6 


***************************** 


FD8D 

A9 

00 


LDA 

#$00 

FD8F 

AA 



TAX 


FD90 

95 

00 


STA 

$00, X 

FD92 

9D 

00 

02 

STA 

$0200, X 

FD95 

9D 

00 

03 

STA 

$0300,X 

FD98 

ES 



I NX 


FD99 

D0 

F5 


BNE 

$FD90 

FD9B 

A2 

30 


LDX 

#$3C 

FD9D 

A0 

03 


LDY 

#$03 

FD9F 

86 

B2 


STX 

$B2 

FDA1 

84 

B3 


STY 

$B3 

FDA3 

85 

01 


STA 

$01 

FDA5 

85 

97 


STA 

$97 

FDA7 

8D 

81 

02 

STA 

$0281 

FDAA 

A8 



TAY 


FDAB 

A9 

04 


LDA 

#$04 

FDAD 

85 

02 


STA 

$02 

FDAF 

E6 

01 


INC 

$01 

FDB1 

D0 

02 


BNE 

$FDB5 

FDB3 

E6 

02 


INC 

$02 

FDB5 

20 

91 

FE 

JSR 

$FE9 1 

FDB8 

A5 

97 


LDA 

$97 

FDBA 

F0 

22 


BEO 

$FDDE 

FDBC 

B0 

Fl 


BCS 

$FDAF 

FDBE 

A4 

02 


LDY 

$C2 

FDC0 

A6 

01 


LDX 

$01 

FDC2 

Cß 

20 


CPY 

#$20 

FDC4 

90 

25 


BCC 

$FDEB 

FDC6 

00 

21 


CPY 

#$21 

FDC8 

B0 

08 


BCS 

$FDD2 

FDCA 

Aß 

IE 


LDY 

#$ 1E 

FDCC 

8C 

88 

02 

STY 

$0288 

FDCF 

40 

7B 

FE 

JMF' 

$FE7B 

FDD2 

A9 

12 


LDA 

#$12 

FDD4 

8D 

82 

02 

STA 

$0282 

FDD7 

A9 

10 


LDA 

#$10 

FDD9 

8D 

88 

02 

STA 

$0288 

FDDC 

Dß 

Fl 


BNE 

$FDCF 

FDDE 

90 

CF 


BCC 

$FDAF 

FDE0 

A5 

02 


LDA 

$02 

FDE2 

8D 

82 

02 

STA 

$0282 

FDE5 

85 

97 


STA 

$97 

FDE7 

09 

11 


CMP 

#$11 

FDE9 

90 

04 


BCC 

$FDAF 

FDEB 

20 

03 

E5 

JSR 

$E5C3 

FDEE 

4C 

EB 

FD 

JMP 

$FDEB 

***************************** 

FDF1 

A8 

FC 

0B 

FC BF i 

EA 8E F9 

***************************** 

FDF9 

A9 

7F 


LDA 

#$7F 

FDFB 

8D 

IE 

91 

STA 

$911E 

FDFE 

8D 

2E 

91 

STA 

$9 12E 

FE01 

A9 

40 


IDA 

#$40 


ftrbeitsspeieher initialisieren 

Zeropage und Page 2+3 löschen 

Bandpufferzeiger auf $0330 


findet RAM-Start für BASIC 

und RAM-Ende 

BASIC-Start auf $1200 
Video-RAM auf $1000 

Videocontroller initialisieren 

Tabelle der IRG-Vefctoren 

I/O-Register initialisieren 
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FE03 

8D 

2B 

91 

STA 

$912B 


FE06 

A9 

40 


LDA 

#$40 


FE08 

BD 

1B 

91 

STA 

$911B 


FE0B 

A9 

FE 


LDA 

#$FE 


FE0D 

8D 

IC 

91 

STA 

$9110 


FE 10 

A9 

DE 


LDA 

#$DE 


FE12 

8D 

20 

91 

STA 

$9120 


FE 15 

A2 

00 


LDX 

#$00 


FE 17 

BE 

12 

91 

ST X 

$9112 


FE1A 

A2 

FF 


LDX 

#$FF 


FEIG 

BE 

22 

91 

STX 

$9122 


FE1F 

A2 

00 


LDX 

#$00 


FE21 

BE 

23 

91 

STX 

$9123 


FE24 

A2 

80 


LDX 

#$80 


FE26 

8E 

13 

91 

STX 

$9113 


FE29 

A2 

00 


LDX 

#$00 


FE2B 

8E 

1F 

91 

STX 

$911F 


FE2E 

20 

84 

EF 

JSR 

.$ E F 8 4 


FE31 

A9 

82 


LDA 

#$82 


FE33 

8D 

IE 

91 

STA 

$9 1 IE 


FE36 

20 

8D 

EF 

JSR 

$ E F 8 D 


FE39 

A9 

00 


LDA 

#$C0 


FE3B 

8D 

2E 

91 

STA 

$912E 


FE3E 

A9 

26 


LDA 

#$26 


FE40 

8D 

24 

91 

STA 

$9124 


FE43 

A9 

48 


LDA 

#$48 


FE45 

8D 

25 

91 

STA 

$9125 


FE48 

60 



RTS 



***************************** 

Fi 1 enamenparameter 

FE49 

85 

B7 


STA 

$B7 

Länge 

FE4B 

86 

BB 


STX 

$BB 

Adresse low 

FE4D 

84 

BO 


STY 

$BC 

Adresse high 

FE4F 

60 



RTS 



***************************** 

Fi 1eparameter setz 

FE50 

85 

B8 


STA 

$BB 

Fi 1 enunimer 

FE52 

86 

BA 


STX 

IBA 

Primäradresse 

FE54 

84 

B9 


STY 

$B9 

Sek un däadresse 

FE56 

60 



RTS 




***************************** Status holen 
FE57 A5 BA LDA $BA Primäradresse 

FE59 09 02 CMP #$02 RS 232 ? 

FE5B Dß 0B BNE $FE68 nein 

FE5D AD 97 02 LDA $0297 RS 232 Status (Fehler, wird wieder gelöscht!) 

FE60 A9 00 LDA #$00 

FE62 8D 97 02 STA $0297 Status löschen 

FE65 60 RTS 

***************************** Prg/Direkt-Flag setzen 
FE66 85 9D STA $9D Flag 

***************************** Status holen 
FE68 A5 90 LDA $90 Status 

***************************** Status setzen 
FE6A 05 90 ORA $90 

FE6C 85 90 STA $90 

FE6E 60 RTS 
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TIME—OUT—F1ag für IEC-Bus setzen 


***************************** 


FE6F 

8D 

85 

02 

STA 

$0285 


FE72 

60 



RTS 



***************************** 

MEMTOP holen (C=05/ setzen (C=l) 

FE73 

90 

06 


BCC 

$ F E 7 B 


FE75 

AE 

83 

02 

LDX 

$0283 


FE78 

AC 

84 

02 

LDY 

$0284 


FE7B 

8E 

83 

02 

STX 

$0283 


FE7E 

8C 

84 

02 

STY 

$0284 


FES 1 

60 



RTS 



**************************** 

MEMBOT holen <C=0)/ setzen (C=l) 

FES2 

90 

06 


BCC 

$FE8A 


FE84 

AE 

81 

02 

LDX 

$0281 


FE87 

AC 

82 

02 

LDY 

$0282 


FE8A 

8E 

81 

02 

STX 

$0281 


FE8D 

8C 

82 

02 

STY 

$0282 


FE90 

60 



RTS 



****************************** 

RAM-Test 

FE9 1 

Bi 

CI 


LDA 

<$C1) ,Y 

Wert merken 

FE93 

AA 



TAX 



FE94 

A9 

55 


LDA 

#$55 

7.0 i a 1010 i 

FE96 

91 

CI 


STA 

<$C1> ,Y 


FE98 

Dl 

CI 


CM F’ 

($C1) ,Y 


FE9A 

Dß 

08 


BNE 

$ F E A 4 


FE9C 

6A 



ROR 


7.10101010 

FE9D 

91 

CI 


STA 

<$C1),Y 


FE9F 

Dl 

CI 


CMP 

($C1) ,Y 


FEfii 

D0 

01 


BNE 

$FEA4 


FEA3 

A9 



.BYTE $A9 


FEA4 

18 



CLC 


C=0, dann Fehler 

FEA5 

8A 



TXA 



FEA6 

91 

CI 


STA 

< $C1) , Y 

alten Wert wieder zurückschreiben 

FEA8 

60 



RTS 



***************************** 

NM I-Routine 

FEA9 

78 



SEI 



FEAA 

6C 

18 

03 

JMP 

($0318) 

JMP $FEAD 

FEAD 

48 



PHA 



FEAE 

8A 



TXA 



FEAF 

48 



PHA 



FEBß 

98 



TYA 



FEB1 

48 



PHA 



FEB2 

AD 

ID 

91 

LDA 

$91 ID 

kein Interrupt (nur RESTORE-Taste) ? 

FEB5 

10 

48 


BPL 

$FEFF 

Rückkehr vom Interrupt 

FEB7 

2D 

IE 

91 

AND 

$91 IE 


FEBA 

AA 



TAX 



FEBB 

29 

02 


AND 

#$02 

RS 232 aktiv ? 

FEBD 

F0 

1F 


BEQ 

$FEDE 

ja 

FEBF 

20 

3F 

FD 

JSR 

$FD3F 

ROM in $A000 ? 

FEC2 

D0 

03 


BNE 

$FEC7 


FEC4 

6C 

02 

A0 

JMP 

($A002) 

ja, dann Sprung auf Modul-NMI 

FEC7 

2C 

11 

91 

BIT 

$9111 

Flags rücksetzen 

FECA 

20 

34 

F7 

JSR 

$F734 

Uhrzeit erhöhen und STÜP-Taste abfragen 

FECD 

20 

El 

FF 

JSR 

$FFE 1 

ETOP-Taste gedrückt ? 

FED0 

D0 

2D 


BNE 

$FEFF 

nein, dann RTI 

FED2 

20 

52 

FD 

JSR 

$FD52 

Vektoren $0314-$0335 setzen 
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FED5 

20 

F9 

FD 

JSR 

$F DF9 


FED8 

20 

18 

E 5 

JSR 

$E518 


FEDB 

6 C 

02 

C0 

JMP 

($C002> 

***************************** 

FEDE 

AD 

IE 

91 

LDA 

$91 IE 


FEEi 

09 

80 


ORA 

#$80 


FEE3 

48 



PHA 



FEE4 

A9 

7F 


LDA 

#$7F 


FEE6 

8 D 

IE 

91 

STA 

$91 IE 


FEE9 

8 A 



TXA 



FEEA 

29 

40 


AND 

#$40 


FEEC 

F0 

14 


BEQ 

$FF02 


FEEE 

A9 

CE 


LDA 

#$CE 


FEF0 

05 

B5 


ORA 

$B5 


FEF2 

8 D 

IC 

91 

STA 

$91 IC 


FEF5 

AD 

14 

91 

LDA 

$9114 


FEF8 

68 



PLA 



FEF9 

8 D 

IE 

91 

STA 

$91 IE 


FEFC 

20 

A3 

EF 

JSR 

$EFA3 


FEFF 

4C 

56 

FF 

JMP 

$FF56 


FF02 

8 A 



TXA 



FF03 

29 

28 


AND 

#$20 


FF05 

F0 

25 


BEQ 

$FF2C 


FF07 

AD 

10 

91 

LDA 

$9110 


FF0A 

29 

01 


AND 

#$01 


FF0C 

85 

A7 


STA 

$A7 


FF0E 

AD 

18 

91 

LDA 

$9118 


FF 11 

E9 

16 


SBC 

#$16 


FF 1 3 

6 D 

99 

02 

ADC 

$0299 


FF 16 

8 D 

18 

91 

STA 

$9118 


FF 19 

AD 

19 

91 

LDA 

$9119 


FF 1C 

6 D 

9A 

02 

ADC 

I029A 


FF 1F 

8 D 

19 

91 

STA 

$9119 


FF22 

68 



PLA 



FF23 

BD 

IE 

91 

STA 

$91 IE 


FF26 

20 

36 

F0 

JSR 

$F036 


FF29 

4C 

56 

FF 

JMP 

$ F F 5 6 


FF2C 

8 A 



TXA 



FF2D 

29 

10 


AND 

#$10 


FF2F 

F0 

25 


BEQ 

$FF56 


FF31 

AD 

93 

02 

LDA 

$0293 


FF34 

29 

0F 


AND 

#$0F 


FF36 

D0 

00 


BNE 

IFF38 


FF38 

0A 



ASL 



FF39 

AA 



TAX 



FF3A 

BD 

5A 

FF 

LDA 

$FF5A, 

X 

FF3D 

8 D 

18 

91 

STA 

$9118 


FF40 

BD 

5B 

FF 

LDA 

$FF5B, 

X 

FF43 

8 D 

19 

91 

STA 

$9119 


FF46 

AD 

10 

91 

LDA 

$9110 


FF49 

68 



PLA 



FF4A 

09 

20 


ORA 

#$20 


FF4C 

29 

EF 


AND 

#$EF 


FF4E 

8 D 

IE 

91 

STA 

$91 iE 


FF5 i 

AE 

98 

02 

LDX 

$0298 


FF54 

86 

AB 


ST X 

$A8 



I/O-Register initialisieren 
Videocontroller und CLR SCREEN 
JMP $E467 zum BASIC-Warmstart 

NMI Routine für RS 232 
Interrupt Enable Register 
Bit 7 für Daten Schreiben 
merken 

Interrupt löschen 


Rückkehr vom Interrupt 


Rückkehr vom Interrupt 


Rückkehr vom Interrupt 


Timer für RS 232 Baud-Rate setzen 


17 



FF56 

68 



FLA 


FF57 

A8 



TAY 


FF58 

68 



FLA 


FF59 

AA 



TAX 


FF5A 

68 



FLA 


FF5B 

40 



RTI 


***************************** 

Timer-Konstanten für RS 232 Baud-Rate 

FF5C 

E6 

2A 


I2AE6 = 

50 Baud 

FF5E 

78 

10 


$1078 = 

75 Baud 

FF60 

49 

13 


$1349 = 

110 Baud 

FF62 

Bl 

0F 


$0F81 = 

134.5 Baud 

FF64 

0A 

0E 


I0E0A = 

150 Baud 

FF66 

D3 

06 


$06D3 = 

300 Baud 

FF68 

38 

03 


$0338 = 

600 Baud 

FF6A 

6 A 

01 


$016A = 

1200 Baud 

FF6C 

D0 

00 


$00D0 * 

1800 Baud 

FF6E 

83 

00 


$0083 = 

2400 Baud 

FF70 

36 

00 


$0036 = 

3600 Baud 

***************************** 

Interrupt-Hand 1ing 

FF72 

48 



FHA 


FF73 

8 A 



TXA 


FF74 

48 



FHA 


FF75 

98 



TYA 


FF76 

48 



FHA 


FF77 

BA 



TSX 


FF78 

BD 

04 

01 

LDA $0104,X 

Frocessor-Status holen 

FF7B 

29 

10 


AND #$10 


FF7D 

F0 

03 


BEQ $FF82 

BREAK-Flag testen 

FF7F 

60 

16 

03 

JMP ($0316) 

BRK $FED2 

FF82 

60 

14 

03 

JHP ($0314) 

IRQ $EABF 

FFB5 

FF 

FF 

FF 

FF FF 


***************************** 

Sprungtabel1e für Betriebssystem-Routinen 

FFBA 

40 

52 

FD 

JMP $FD52 

I/O-Vektoren $0314-$0335 initialisieren 

FF8D 

40 

57 

FD 

JMP $FD57 

I/O-Vektoren $0314-10335 setzen 

FF90 

40 

66 

FE 

JMP $FE66 

Direkt-FIag setzen und Status holen 

FF93 

40 

00 

EE 

JMP IEEC0 

Sekundär-Adresse nach LISTEN senden 

FF96 

40 

CE 

EE 

JMP $EECE 

Sekundär-Adresse nach TALK senden 

FF99 

40 

73 

FE 

JMP $FE73 

RAM-Ende setzen/holen C=l/0 

FF9C 

40 

82 

FE 

JMP $ F E 8 2 

RAM-Anfang setzen/holen 0-1/0 

FF9F 

40 

iE 

EB 

JMP $EB1E 

Tastatur-Dekodierung 

FFA2 

40 

6 F 

FE 

JMP $FE6F 

TIMEOUT-Flag für IEC-Bus setzen 

FFA 5 

40 

19 

EF 

JMF $EF 19 

INPUT vom IEC-Bus 

FFA8 

40 

E4 

EE 

JMP $EEE4 

OUTPUT auf IEC-Bus 

FFAB 

40 

F6 

EE 

JMP $EEF6 

UNTALK senden 
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FF AE 

4C 

04 

EF 

J MP 

$EF04 

UNLISTEN senden 

FFB 1 

4C 

17 

EE 

JMP 

JEEI 7 

LISTEN senden 


FFB4 

4C 

14 

EE 

JliP 

«EE 14 

TALK 

senden 


FFB7 

4C 

57 

FE 

jmp 

$FE57 

STatus holen 


FFBA 

4C 

50 

FE 

JMP 

IFE50 

setzt 

Filenr(A) Prlm.(X) und Sekadr.(Y) 

FFBD 

4C 

49 

FE 

JMP 

JFE49 

setzt 

Länge(A> 

+ Adr.(X/Y) Filename 

FFC0 

6 C 

1A 

03 

JMP 

(«031A) 

OPEN 

$F40A 


FFC3 

6 C 

IC 

03 

JMP 

($0310 

CLOSE 

$F34A 


FFC6 

6 C 

IE 

03 

JMP 

(«03 iE) 

CHKIN 

$F2C7 

Inputqerät festlegen 

FFC9 

6 C 

20 

03 

JMP 

($0320) 

CKOUT 

$ F 3 0 9 

Ausgabegerät festlegen 

FFCC 

6 C 

22 

03 

JMP 

($0322) 

CLRCH 

$F3F3 

Rücksetzen des I/O-Kanals 

FFCF 

6 C 

24 

03 

JMP 

($0324) 

BAS IN 

IF20E 

Eingabe eines Zeichens 

FFD2 

6 C 

26 

03 

JMP 

($0326) 

BSOUT 

$F27A 

Ausgabe eines Zeichens 

FFD5 

4C 

42 

F5 

JMP 

$F542 

LOAD 



FFD8 

4C 

75 

F6 

JMP 

$ F 6 7 5 

SAVE 



FFDB 

4C 

67 

F7 

JMP 

$F767 

TIME 

setzen 


FFDE 

4C 

60 

F7 

JMP 

$F760 

TIME 

holen 


FFE 1 

6 C 

28 

03 

JMP 

($0328) 

STOP- 

Taste abfragen $F770 

FFE4 

6 C 

2 A 

03 

JMP 

($032A) 

GETIN 

$F 1F5 

ein Zeichen holen 

FFE 7 

6 C 

2C 

03 

JMP 

($0320 

CLALL 

$F3EF 

I/Q~Kanäle schließen 

FFEA 

4C 

34 

F7 

JMP 

$F734 

UDTIM 

Uhr und 

Stopt aste 

FFED 

4C 

05 

E5 

JMP 

$E50 5 

holt 

Bildschirmgröße nach X/Y 

FFF0 

4C 

0A 

E5 

JMP 

IE50A 

holt/setzt Cursorposition (X/Y) 

FFF3 

4C 

00 

E5 

JMP 

$E500 

holt 

VIA 6522 

Adresse ($9110) nach X/Y 

FFF6 

FF 

FF 

FF FF 






FFFA 

A9 

FE 


$ F E A 9 

NMI-Vektor 


FFFC 

22 

FD 


*FD22 

RESET 

-Vektor 


FFFE 

72 

FF 


$FF72 

IRQ-Vektor 
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Einleitung 

Der VC-20 ist ein phantastischer Computer. 

Wenn man einmal etwas zurückschaut, dann ist es noch nicht 
lange her, da mußte man -für den legendären KIM 1, den ersten 
Computer der Firma Commodore, gut 800 DM bezahlen. Dieser KIM 
1 hatte kein Gehäuse, verfügte über eine kleine 
Hexadezimal-Tastatur und für die Ausgabe waren sechs 
LED-Anzeigen eingebaut. Damit konnte man erste Gehversuche in 
Maschinensprache machen. 

Heute bekommen Sie für knapp die Hälfte ein Gerät, das mit 
einer vollständigen Tastatur und einem hervorragenden 
Basic-Interpreter, mit Anschluß an Farbfernseher und 
Möglichkeit der einfachsten Erweiterung ausgestattet ist. 
Diese ganzen Möglichkeiten und der niedrige Preis haben 
sicherlich maßgeblich dafür gesorgt, daß der VC-20 in 
geradezu phantastischen Stückzahlen verkauft wurde. 
Entsprechend groß ist mittlerweile auch das Angebot an 
Software für den VC-20. 

Allerdings war es immer sehr schwierig, Schaltbilder des 
VC-20 zu erhalten. Das war umso ärgerlicher, als damit der 
Weg zu selbstgebauten Steuerungen verschlossen war. 

Dem können wir in dieser Ausgabe von VC-20 INTERN abhelfen. 
In diesem Buch finden Sie einen kompletten Schaltplan und ein 
Blockschaltbild des VC-20. Den Schaltplan haben wir 

ausführlich dokumentiert. Wenn Sie einige Vorkenntnisse der 
Digitaltechnik haben, sollte Ihnen das Verstehen der Hardware 
des VC-20 leichtfallen. 

Aber auch wenn Sie nicht Vorhaben, Ihren VC-20 durch 
Selbstbau zu erweitern, ist eine detaillierte Kenntnis der 
Hardware nützlich, da dadurch die internen Zusammenhänge 
klarer werden. 

Für Hardware- und Software-"Freaks' gleichermaßen interessant 
ist sicher die detailierte RegiSterbeschreibung der 
Peripherie-Bausteine im VC-20, die wir mit in dies Buch 

aufgenommen haben. 

Zum Abschluß noch eine kurze Bemerkung. Leider hat die Firma 
Commodore im Laufe der Zeit verschiedene Leiterplatten im 
VC-20 verwendet. Der von Commodore zur Verfügung gestellte 
und von uns abgedruckte Schaltplan stellt den aktuellen Stand 
dar. Das bedeutet, daß Ihr VC-20 möglicherweise einen etwas 
anderen Aufbau haben kann. Diese Unterschiede sind aber 

relativ geringfügig. In der Hauptsache ist in den älteren 
Geräten der RAM-Bereich ganz mit den ICs 2114 aufgebaut. 
Sicheres äußeres Unterscheidungsmerkmal ist die 

Stromversorgung. Wenn Ihr VC-20 ein schwarzes Trafogehäuse 
hat, müssen Sie leider mit diesen kleinen hardwaremäßigen 

Unterschieden rechnen. Die Belegung der verschiedenen Ports 
ist aber an allen VC-20 gleich. 
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Die Stromversorgung. 

Die Stromversorgung des VC-20 ist recht einfach und 
übersichtlich aufgebaut. 

über die Buchse P7 ist der VC-20 mit dem 
Stromversorgungsgehäuse verbunden- In diesem Gehäuse befindet 
sich der Netztrafo und eine Gleichrichter— und 
Stabi1isationsschaltung. 

Der Anschluß an den VC-20 wird mit einer 7-poligen 
DIN-SteckVerbindung vorgenommen. 

Auf den Kontakten 4 und 5 dieser Steckverbindung liegt die im 
Stromversorgungsgehäuse bereits gleichgerichtete und 
stabilisierte 5 Volt Gleichspannung. Diese Spannung versorgt 
die gesamte Elektronik des VC 20. Die Kondensatoren C31, C32, 
C33, C34 und C40 sowie die Spule L3 filtern eventuelle 
Störimpulse aus, die Leuchtdiode CN1 (kurz LED) ist die 
Einschaltkontrolle. 

Die Kontakte 1, 2 und 3 sind der Massekontakt für die 5 Volt. 
An den Kontakten 6 und 7 liegt eine Wechsel Spannung von ca- 9 
Volt, diese Spannung ist mit der Sicherung Fl abgesichert. 
Diese Sicherung hat einen Wert von 1 Ampere. Hinter der 
Sicherung befindet sich ein Filter mit den Kondensatoren C35 
und C36 und der Spule L4. Das Filter beseitigt Störungen, die 
über den Transformator aus dem Lichtnetz in den VC-20 gelangt 
si nd. 

Die WechselSpannung wird über zwei Drähte zum User—Port PI 
geführt und stehen Ihnen an den Kontakten 10 und 11 zur 
Verfügung. An diesen Kontakten können Sie die WechselSpannung 
abgreifen und nach entsprechender Gleichrichtung und 
Stabilisierung für Ihre eignenen Erweiterungen verwenden. 
Parallel zu den Kontakten am User-Port liegt die 

Wechsel Spannung noch an dem Brückengleichrichter CR 2. Die 
vier Dioden im CR2 erzeugen aus der Wechsel Spannung eine 
pulsierende Gleichspannung, die mit dem Kondensator C39 
geglättet wird. über dem Kondensator baut sich eine 

unstabi1isierte Gleichspannung von 9 Volt auf. Benutzt wird 
die Gleichspannung zum Betrieb des Motors in der Datasette. 
Auf die Datasette und ihren Anschluß werden wir weiter unten 
noch genauer eingehen. 

Wenn Sie die Datasette nicht benutzen, können Sie die 
WechselSpannung mit ca. 1 Ampere belasten. Damit lassen sich 
schon ganz schön umfangreiche Zusatzschaltungen versorgen. 
Wenn Sie die Datasette aber doch benutzen, so sollten Sie die 
Wechsel Spannung nur mit maximal 100 mA belasten. Bei höherer 
Belastung wird die Sicherung Fl ihren 'Geist' aufgeben. 

Im Gegensatz zur WechselSpannung ist die vom 
Stromversorgungsgehäuse gelieferte 5 Volt Gleichspannung 
kurzschlußfest. Diese Spannung können Sie am 

User—Port-Kontakt 2, am Expansion-Slot-Kontakt 21, am 
Controller—Port Pin 7 oder aber am Video/Audio-Port Pin 1 
abgreifen. Auch hier sollten Sie den Maximalstrom von 100 mA 
nicht überschreiten. 
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Die Takterzeugung. 


Der Takt in einem ComputerSystem ist vergleichbar mit dem 
Pendel einer Uhr. Ohne Pendel-Takt steht die Uhr, je genauer 
der Takt, desto genauer geht die Uhr. Entsprechend verhält 
sich der Takt im VC-20. Ohne Takt geht also nichts. 

Um den Takt möglichst gleichmäßig schlagen zu lassen, benutzt 
man in der Regel einen Schwingquarz. Ein solcher Quarz 
liefert eine sehr exakte Frequenz, die sich nur ganz 
geringfügig bei Temparatur- und Spannungsschwankungen ändert. 
Das ist im Fall des VC-20 sehr wichtig, da die Quarzfrequenz 
bei der Erzeugung der Signale für das Fernsehbild eine große 
Rolle spielt. 

Realisiert ist der Taktoszi11ator mit dem Quarz Y1 und dem IC 
UB9. 

Der Quarz ist schon bei der Produktion auf eine Frequenz von 
4.433618 MHz abgeglichen. 

Das IC UB9 ist ein TTL-IC 7402 mit vier NOR-Gattern. Ein 
NOR-Gatter stellt eine logische Oder-Verknüpfung dar, deren 
Ausgang invertiert ist. Alle vier NOR-Gatter im UB9 sind 
allerdings ausschließlich als Inverter beschältet, die beiden 
Eingänge eines jeden Gatters sind zusammengeschaltet. 

Die beiden Gatter an den Pins 1, 2, 3, 4, 5 und 6. bilden 

zusammen mit dem Quarz, den Widerständen R5 und R6 und den 
Kondensatoren C50 und C48 die Oszillatorschaltung. Der 
Kondensator C4B ist ein Trimmkondensator, mit seiner Hilfe 
laßt sich die Frequenz geringfügig einstellen. An den 
Ausgängen Pin 1 und Pin 4 wird das Ausgangssignal abgenommen. 
Dabei sind die beiden Signale um 180 Grad phasenverschoben, 
d.h. Wenn der Pin 4 einen High-Pegel hat, liegt Pin 1 auf Low 
und umgekehrt. Die beiden im UB9 noch freien Gatter 
'verstärken' die Taktsignale, die Schaltflanken zwischen den 
logischen Low- und Highzuständen werden steiler. Diese 
Signale werden an die Pins 38 und 39 des 
Video-Interface-Chips geführt. 

Auf den Video-Interface-Chip 6561 (kurz VIC genannt) werden 
wir später detailiert eingehen. Zur Takterzeugung 

interresiert uns im Moment nur die Erzeugung des 
Prozessortaktsignals. 

Der 6561 enthält eine Frequenztei1erstufe, welche die 

Eingangsfrequenz durch vier teilt. Damit entsteht eine 

Frequenz von 1.1084 MHz. Diese neue Frequenz steht an Pin 35 
des VIC zur Verfügung und wird an den Eingang Pin 11 des 
Inverters UB4 geführt. Vom Ausgang Pin 10 des Inverters wird 
das Signal auf den Takteingang des Prozessors Pin 3 geführt. 
Der Prozessor 6502 erzeugt aus dem Signal 00 die beiden 
Taktsignale 01 Out und 02 Out. Diese beiden Signale sind 
zueinander um 180 Grad phasenverschoben. Das Signal 02 hat 
die gleiche Phasenlage wie das Eingangsignal 00, es ist nur 
zeitlich ein wenig verzögert. 

Zur besseren Übersicht sind die gesamten Taktsignale als 
Timingdiagramm auf der nächsten Seite dargestellt. 
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VC-20 
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Wichtig innerhalb des Timings ist das Signal 02. Es stellt 
das Bezugssignal für alle Operationen des Prozessors dar. 
Speicherzugriffe des Prozessors finden nur in den High-Phasen 
des 02 statt, in den Low-Phasen werden die nächsten Lese— 
oder Schreiboperationen vorbereitet, der Bus ist frei. Diese 
Lücken werden geschickt vom VIC ausgenutzt, um auf das 
Videoram und den Charakter—ROM zuzugreifen. 


Der Prozessor 6502 

Der im VC 20 eingesetzte Prozessor ist der bekannte 6502. 
Dieser Prozessor ist seit den Tagen des legendären PET 2001 
in jedem Computer der Firma Commodore eingebaut worden. 

Der 6502 ist einer der leistungsfähigsten 8-Bit-Prozessoren. 
Die Bezeichnung 8-Bit-Prozessor bezieht sich auf den 
Datenbus. Dieser Datenbus ist 8 Bit breit. Damit sind 256 
verschiedene Zustände auf den Datenleitungen möglich. Der 
Adressbus ist 16 Bit breit. Mit diesen 16 Adressleitungen 
kann der Prozessor 65536 verschiedene Speicherzellen 
adressieren. Anders ausgedrückt kann der Prozessor 64 k 
Speicher adressieren. 

Aber schauen wir uns die einzelnen Anschlüsse des 6502 einmal 
der Reihe nach an. 


Pin 

Bez. 

Funktion 

1 


Vss 

Betriebsspannung Masse 

2 


RDY 

Eingang, im VC-20 nicht benutzt 

3 


01out 

Ausgang, Takt 01 

4 


-IRQ 

Eingang, Interrupt ReQuest 

5 


N.C. 

keine Funktion 

6 


-NMI 

Eingang, Non—Maskable Interrupt 

7 


SYNC 

Ausgang, im VC-20 nicht benutzt 

8 


Vcc 

Betriebsspannung +5V 

9 

bis 

CA0 

Ausgang, Adressbit 0 

20 


CA11 

Ausgang, Adressbit 11 

21 


Vss 

Betriebsspannung Masse 

22 

bi s 

CA 12 

Ausgang, Adressbit 12 

25 


CA 15 

Ausgang, Adressbit 15 

26 

bis 

CD7 

Datenbus, bidirektional Bit 7 

33 


CD0 

Datenbus, bidirektional Bit 0 

34 


R/-W 

Ausgang, Read/-Write 

35 


N.C. 

keine Funktion 

36 


N.C. 

keine Funktion 

37 


0Oi n 

Eingang, Taktsignal 00 

38 


S.O. 

Eingang, nicht benutzt 

39 


02out 

Ausgang, Taktsignal 02 

40 


-RES 

Eingang, -Reset 
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Der Adressbus des Prozessors 


über diese 16 Leitungen werden alle Speicherplätze 
angesprochen. Dabt, ist zu bedenken, daß auch die 
Peripheriebausteine Memory Mapped, also als Speicher 
angesprochen werden. 

Wenn Sie den Blockschaltplan au-f Sei :e 175 genauer 
betrachten, werden Sie fectstel1en, daß der Adressbus im 
VC—20 gleich zwei mal vorhanden ist. Da ist zum einen der 
direkte Prozessor-Adressbus CAO bis CA15. Dieser Bus liegt, 
wie man im Blockschaltbild sehen kann, an den 16 K Basic- md 
Betriebssystem—ROM, an den VIAs 6522 UAB1 und UAB3, an den 
Dekodern UC5 und UC6 und am Expansion Port. Zu guter letzt 
liegen die Adressbits 0 bis 12 an den beiden Busbuffern UD8 
und UE8. 

Diese Busbuffer vom Typ 74LS245 sind grundsätzlich 
bidirektional. Das bedeutet, daß der Datentransfer in beide 
Richtungen vorgenommen werden kann. Dabei wird die 
Datenrichtung durch das Signal DIR an Pin 1 bestimmt. Bei den 
Adressbusbuffern ist dieser Anschluß auf Masse gelegt, die 
Datenrichtung ist -festgelegt. 

An den so festgelegten Ausgängen der Buffer liegt der 
Adressbus VA0 bis VA13. Dieser Bus verbindet den Prozessor 
mit dem RAM und dem Farb-RAM, dem Charakter-ROM, dem VIC und 
dem Dekoder ÜC4. 

Der Anschluß -ENABLE Pin 19 dieser Buffer hat eine besondere 
Funktion. Wenn dieser Anschluß High ist, gehen die Ausgänge 
unabhängig von der Datenrichtung in den Tri-State-Zustand, 
und der Prozessor kann die am Bus VA liegenden ICs nicht 
adressieren. 

Wie schon erwähnt, benutzt der Prozessor den Adress- und 
Datenbus nur in den Zeiten, in denen 02 High ist. Das 
bedeutet aber nicht, das in den Low-Phasen von 02 der 
Prozessor seine Daten und Adressleitungen in den 
Tri-State-Zustand versetzt. In diesen Zeiten werden die 
nächsten Operationen des Prozessors vorbereitet, auf den 
Adressbus wird die nächste Adresse gelegt. Da aber in den 
02-Low-Zeiten der VIC den Adressbus belegt, muß der 
Prozessoradressbus für diese Zeit abgeschaltet werden. Auf 
Grund dieser festen Zeiteinteilung kann der Pin 19 der Buffer 
direkt vom Signal P01 vom VIC gesteuert werden. Dieses Signal 
ist immer dann High, wenn 02 Low ist. 

Der Datenbus 

über diese 8 Leitungen findet der gesamte Datentransfer 
zwischen Prozessor und Peripheriebausteinen statt. Auch der 
Datenbus im VC-20 ist, wie im Blockschaltbild gut zu sehen, 
doppelt vorhanden, einmal als Datenbus CD0 bis CD7, einmal 
als BD0 bis BD7. 

Der CD-Bus ist der direkte Datenbus des Prozessors. Er ist 
mit den Basic- und Kernal-ROMs, dem Busbuffer UF8 und dem 
Expansion Port verbunden. 

Der BD-Bus ist der gepufferte Datenbus hinter dem IC UF8. Bei 
diesem Datenbusbuffer wird von der Möglichkeit der 
Datenrichtungsumschaltung Gebrauch gemacht. Der entsprechende 
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Eingang Pin 1 ist verbunden mit der R/-W-Leitung des 
Prozessors. Wenn der Prozessor Daten liest, ist dieser 
Prozessorpin High, Daten können vom BD-Bus in den Prozessor 
gelesen werden. 

Beim Schreiben ist diese Leitung Low, die Datenrichtung geht 
vom Prozessor auf den Bus BD0 bis BD7. 

Die -ENABLE-Leitung des Datenbuffers wird vom IC UD9, einem 
74LS133 angesteuert. Dies IC ist ein NAND-Gatter mit 13 
Eingängen. Alle 13 Eingänge müssen High sein, um am Ausgang 
ein Low zu erzeugen, und nur bei einem Low ist der Buffer 
überhaupt eingeschaltet. 

Das wichtigste Eingangssignal am UD9 ist das Signal S02, der 
Systemtakt. Sobald dies Signal Low ist, wird der Buffer in 
den Tri-State-Zustand versetzt. Damit ist der BD-Bus frei für 
die Arbeit des VIC. 

Die Systemsteueranschlüsse 

Die R/-W~Leitung des Prozessors wurde gerade beim 
Datenbusbuffer schon erwähnt. Dieser Anschluß signalisiert 
mit einem High-Signal, daß der Prozessor einen Lesezugriff 
auf die Peripheriebausteine ausführen will, bei einem Low 
wird ein Schreibzugriff ausgeführt. 

Damit verbleiben noch drei Prozessorsignale, die wir noch 
nicht behandelt haben.Das sind die Interrupt-Eingänge -NMI 
und -IRQ sowie der Eingang -RES. 

Zuerst die Interrupt—Eingänge. 

Interrupt bedeutet übersetzt Unterbrechung. Mit diesen 
Eingängen kann der 6502 veranlaßt werden, sein gerade 
laufendes Programm zu verlassen und auf das 
Unterbrechungssignal zu reagieren. Wie könnte so eine 
Unterbrechung in der Praxis aussehen ? 

Nun, im einfachsten Fall können wir den Interrupt jede 
Sekunde einmal auslösen. D ?r Computer verläßt dann sein 
momentan laufendes Programm und könnte nun in eine Routine 
verzweigen, in der eine Jhr programmiert ist. Nach dem 
Abarbeiten dieser Interruptroutine nimmt der Computer dann 
sein unterbrochenes Programm wieder auf. 

Der 6502 hat zwei Möglichkeiten der Interrupt-Erzeugung. Zum 
einen ist das der Pin —tMI Non Maskable Interrupt. Wenn 
dieser Pin Low wird, beendet der Prozessor seinen 
Maschinensprachebefehl, rettet die momentane Adresse und holt 
sich von den Adressen $FFFA und $FFFB die Adresse der 
Interruptroutine. Dieser Vorgang ist durch Programmierung 
nicht zu verhindern, er findet immer statt. 

Erzeugt wird der —NMI durch den -IRQ-Ausgang des 6522 UAB3. 
Sobald bestimmte progi ammierbare Ereignisse an diesem IC 
auftreten, wird der Pi i 21 des 6522 Low. Damit wird der -NMI 
ausgelöst. 

Der —NMI—Eingang lieg zusätzlich noch auf dem Kontakt W des 
Expansion Ports. Damit haben auch externe Baustufen die 
Möglichkeit, einen Interrupt zu veranlassen. 

Auch der -IRQ kann von einer externen Schaltung erzeugt 
werden. Der Eingang liegt auf Pin 19 des Expansion Ports. 
Zusätzlich ist noch der -IRQ-Ausgang vom 6522 UA1 mit dem 
Prozessor verbunden. Auch hier kann wieder das Eintreten 
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bestimmter Ereignisse zur Erzeugung des Interrupts genutzt 
werden. 

Der Interruptvektor liegt beim -IRQ auf den Adressen $FFFE 
und SFFFF. 

Der -IRQ hat eine Eigenart, über die der -NMI nicht verfügt: 
er ist softwaremäßig verhinderbar. Damit der Prozessor einen 
auftretenden —IRQ wahrnehmen kann, muß im Prozessor das 
Interrupt Disable Flag gelöscht sein. 

Der Eingang mit der Bezeichnung -RES wird benutzt, um nach 
dem Einschalten einen definierten Startpunkt zu haben. 

Die Erzeugung dieses Signals wird von dem IC UB6, einem 
Timer-IC vom Typ 555 und dem nachgeschalteten Inverter UB4 
vorgenommen- Im Einschaltmoment laden sich die Kondensatoren 
C41 und C42 über die Widerstände R24 und R25 auf. Nach 
wenigen Millisekunden ist die Spannung über dem Kondensator 
C41 auf ca. 1.7 Volt angestiegen. Damit wird der eigentliche 
Impuls gestartet. Schlagartig wird der Kondensator C42 über 
den Pin 7 des UB6 entladen und der Ausgang Pin 3 wird High. 
Am Ausgang des Inverters liegt damit ein Low-Signal. Nach 
etwa 1.5 Sekunden ist die Spannung am Kondensator C42 auf ca 
3.3 Volt angestiegen. Damit schaltet der Ausgang des Timers 
auf Low, das Signal -RES wird High. In diesem Umschaltmoment 
beginnt der Prozessor seine Arbeit. 


Der Video Interface Chip 6581 

Damit wir Ergebnisse vom Computer zurückbekommen können, muß 
der Computer über eine Ausgabeeinheit verfügen. Der VC-20 
benutzt als Ausgabegerät normalerweise einen Farbfernseher. 
Alle Signale, die zum Betrieb eines Farbfernsehers nötig 
sind, werden im sogenannten VIC, dem Video Interface Chip 
6561 erzeugt. Die einzige Ausnahme ist das 

Hochfrequenzsignal, auf dem die Bild— und Farbinformationen 
aufmoduliert sind. Diese Hochfrequenz wird in dem externen 
Modulator erzeugt. Alle anderen Signale erzeugt der VIC. 
Zusätzlich verfügt dies 40-polige IC über zwei 
Analog/Digital—Wandler, vier unabhängige programmierbare 
Tongeneratoren und einen Eingang für einen Light Pen. 

Aber zunächst wollen wir uns wieder die Anschlußbelegung des 
ICs ansehen. 


Pin 



Bez . 

Funktion 


N.C. 

Nicht verwendet 


COMP COLOR 

Ausgang, Farbinformation 
gerät 


SYNC St LUM 

Ausgang, Syncron- und He 
mation für Fernsehgerät 


R/-W 

Eingang, Read/-Write 

bi s 

VD11 

Datenbit 11 


VD8 

Datenbit 8 

bi s 

BD7 

Datenbit 7 


für Fernseh- 
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16 

BD0 

Datenbit 0 

17 

POT X 

Eingang, A/D—Wandler 1 

18 

POT Y 

Eingang, A/D-Wandler 2 

19 

COMP SND 

Ausgang, Sound 

20 

Vss 

Betriebsspannung Masse 

21 

A0 

bis 

Adressbit 0 

34 

A13 

Adressbit 13 

35 

P01 

Taktausgang 

36 

P02 

Taktausgang, nicht verwendet 

37 

LITE PEN 

Eingang für Lichtgriffel 

38 

02 i n 

Takteingang Quarzfrequenz 

39 

01 in 

Takteingang Quarzfrequenz 

40 

Vdd 

Betriebsspannung +5V 

Bei 

der Betrachtung der Anschlüsse fällt 


zusätzliche Datenbus VDS bis VDil aut- Damit verfügt der VIC 
über einen Datenbus von 12 Bit. Das ist auf den ersten Blick 
sicher etwas ungewöhnlich. Die Antwort ist aber genau so 
einfach wie überzeugend- Die vier zusätzlichen Bits bestimmen 
die Farbe der darzustel1 enden Zeichen. Damit ist auch klar, 
warum 16 Farben möglich sind. Mit 4 Bits lassen sich genau 16 
verschiedene Informationen darstellen. 

Diese Datenleitungen sind mit dem RAM UE1 verbunden, dem 
Farb-RAM. Das Farbram belegt die Adressen $9400 (dez. 37B88) 
bis $97FF (dez. 38911). 

Die 8 weiteren Datenleitungen des VIC sind mit dem Datenbus 
BD verbunden, über den Datenbus-Buffer ist der VIC mit dem 
Prozessor verbunden. Direkt verbunden ist der VIC mit den 
Datenleitungen der RAM-Bausteine und dem Charaktergenerator. 
Dieser Bus hat eine Doppelfunktion. In den Zeiten 02 gleich 
High kann der Prozessor Daten in das Ram schreiben oder 
entsprechend auslesen. In der verbleibenden Zeit wird der Bus 
vom VIC benutzt- Jetzt liest der VIC das Video- und Farb-RAM, 
und holt sich die zur Darstellung auf dem Bildschirm 
benötigten Daten aus dem Charakter-ROM. 

Auch die Adressleitungen des VIC haben wieder eine 
Doppel funktion. In den Zeiten, in denen der Prozessor über 
die Adressbuffer diesen Bus benutzen kann, werden über diese 
Leitungen die 16 internen Register des VIC adressiert. Dabei 
ist eine Besonderheit des VIC zu beachten. 

Die Adressleitungen sind nach einem bestimmten Schema 
aufgeteilt. Die 6 höherwertigen Adressbits A8 bis A13 
übernehmen die Funktion der allgemeinen Selektierung des IC. 
Die Bedingung lautet dabei, daß das Adressbit A13 und die 
Bits All bis A8 Low, daß Adressbit A12 High sein muß. Wenn 
diese Bedingung stimmt, kann mit den unteren 4 Adressbits A0 
bis A3 das gewünschte Register im VIC ausgewählt werden. 

Wäre der VIC direkt mit dem Adressbus des Prozezzors 
verbunden, dann hätte der VIC vier Basisadressen, da die zwei 
höchsten Adressbits A14 und A15 nicht verwendet werden 
könnten. Das ist natürlich unerwünscht, zumal die erste 
Adresse des VIC auf $1000 und die Zweite auf $5000 liegen 
würde, dem für RAM vorgesehenen Adressbereich. 
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Darum hat man einen anderen Weg beschritten, die Erzeugung 
des Adressbits mit einem Dekoder - 

Der verwendete Dekoder ist das IC UC5, ein 74LS138- Dieser 
Dekoder ist an den drei Eingängen mit den Adressbits CA13 bis 
CA 15 verbunden. Entsprechend der Eingangsintormation ist 
einer der acht Ausgänge Low. Damit ist der gesamte 
64K—Adressbereich des Prozessors in acht Blöcke zu jeweils 8K 
au-f getei 11. 

Das Block-AuswahlSignal —BLK4 vom Pin 4 des Dekoders ist im 
Bereich $8000 bis $9FFF Low. Dieses BLK-Signal wird als 
Adressbit VA13 benutzt. Damit liegt die Basisadresse des VIC 
au-f $9000 (dez. 36864) fest. 

Die zuvor beschriebenen Zustände beziehen sich auf den 
Zeitpunkt, in dem 02 High ist. In den 02-Low-Zeiten benutzt 
der VIC den Adressbus VA, um das Video- und Färb—RAM und den 
Charaktergenerator zu adressieren. Der Adressbus des VIC ist 
also bidirektional, er arbeitet abhängig von 02 als Eingang 
oder als Ausgang. 

Das Signal VR/-W ist das vom 6502 erzeugte R/-W-5ignal. Damit 
wird am VIC fetgelegt, ob in eins der Register geschrieben, 
oder daraus gelesen wird. Allerdings kann das R/—W—Signal des 
Prozessors nicht direkt verwendet werden. 

Wie schon bei der Prozessorbeschreibung erläutert, beginnt 
ein liaschinenzyklus mit der negativen Flanke von 02. Wenn der 
Prozessor in diesem gerade begonnenen Zyklus einen 
Schreibzugriff vorbereitet, wird kurz nach Beginn des Zyklus 
der Anschluß R/-W Low. Zu dieser Zeit belegt aber der VIC den 
Bus und adressiert beispielsweise das Video-RAM. Wenn jetzt 
die R/-W—Leitung Low ist, wird dem Video—RAM ein 
Schreibzugriff vorgetäuscht, der VIC kann aber immer nur 
lesen. Die Daten im Video-RAM werden dadurch zerstört und der 
VIC hat keine gültigen Daten erhalten. 

Aus diesem Srund wird das R/—W—Signal mit dem Taktsignal 
ßlout des Prozessors und dem Signal P01 des VIC verknüpft. 
Die genauen Zusammenhänge zwischen den Signalen sehen Sie im 
Timingdiagramm auf der nächsten Seite. 

Die Eingänge POTX und POTY sind die Eingänge der beiden im 
VIC integrierten Analog/Digitalwandler. Sie sind direkt an 
die Pins 5 und 9 des Control1erports geführt. Benutzt werden 
sie in der Regel zum Abfragen der Paddies. 

Diese Paddies enthalten zwei veränderbare Widerstände, 
Potentiometer oder kurz Poti genannt, vergleichbar den 
Lautstärkereglern an einem Radio. Diese Paddle-Widerstände 
sind mit dem einen Anschluß an +5V gelegt, der andere 
Anschluß liegt am entsprechenden Eingang des VIC. 

Diese Potis haben an dem einen Anschlag einen kleinen 
Widerstandswert (ca. 200 Ohm), am anderen Anschlag ist der 
Widerstandswert relativ hoch (ca 500 KOhm)., Dazwischen ist 
jeder Wert grundsätzlich möglich. Wie kann der A/D-Wandler 
nun aus einem Widerstandswert einen Digitalwert erzeugen? 

Dazu wird ein kleiner Umweg beschritten. Eine wichtige Rolle 
spielen dabei die beiden Kondensatoren C20 und C21. 
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Wenn der VIC den momentanen Widerstandswert messen will, wird 
der an Eingang befindliche Kondensator über den Eingang 
schlagartig entladen- Danach kann der Kondensator sich über 
den eingestellten Paddle~Widerstand aufladen. Gleichzeitig 
mit dem Beginn der Ladezeit startet ein Zähler bei 0. Der 
AD—Eingang überprüft die Spannung am Kondensator und sobald 
die Spannung höher als 3.5 Volt wird, stoppt der Zähler. 
Dieser Zählerstand kann aus dem ensprechenden Register des 
VIC ausgelesen werden. 

Wenn der eingestellte Widerstandswert klein ist, wird der 
Kondensator schnell aufgeladen. Damit stoppt der Zähler schon 
nach kurzer Zeit und der Wert des A/D-Registers ist klein. 
Bei einem großen Widerstandswert wird der Kondensator nur 
langsam aufgeladen, der Zählerstand ist entsprechend größer. 
Damit ist der Registerinhalt ein direktes Maß des Widerstands 
oder auch des Drehwinkels- 

Diese soeben beschriebenen Meßvorgänge werden alle 0.5 
Millisekunden wiederholt.In einer Sekunde wird also 2000 mal 
der aktuelle Wert in den Registern angezeigt. 

An dem Pin & des Control Port läßt sich ein sogenannter Light 
Pen oder Lichtgriffel anschließen. Dieser Pin ist direkt mit 
dem Anschluß 37 des VIC verbunden. 

Das Bild auf dem Fernseher ist aus Punkten zusammengesetzt. 
Diese Punkte werden von der Bildröhre nacheinander erzeugt. 
Der VIC 'weiß' zu jeder Zeit, welcher Bildpunkt gerade 
erzeugt wird. 

Dieses Entstehen eines Bildpunktes kann unser Auge nicht 
wahrnehmen. Uns erscheint das Bild immer gleichmäßig hell. 

Mit einem Phototransistor und einer nachfolgenden 
Verstärkerstufe können die Helligkeitsunterschiede aber 
nachgewiesen werden. Im Light Pen wird dies Signal so weit 
verstärkt, das es ein digitales Signal darstellt. 

Wenn der Light Pen auf den Bildschirm gehalten wird, entsteht 
mit dem Erscheinen des Bildpunktes eine negative Flanke am 
Pin 37 des VIC. Mit diesem Signal wird die augenblickliche 
Punkteposition in den Light Pen-Registern gespeichert. 

An den Anschlüssen 2 und 3 des VIC werden alle für das 
Erzeugen eines Farbbildes benötigten Signale erzeugt. Dabei 
sind am Pin 2 die Signale für die Farbinformation, an Pin 3 
die Signale für Helligkeit und die Synchronisation vorhanden. 
Die beiden Signale werden gemeinsam auf die Basis des 
Transistors Q2 gegeben. Am Emitter des Transistors steht ein 
Gemisch der beiden Signale zur Verfügung. Diese Signalgemisch 
wird auf die Kontakte 4 und 5 der 5-poligen DIN-Buchse P4, 
dem Audio/Video-Port gegeben. An diesen Kontakten kann nun 
entweder ein Datenmonitor direkt oder über den Modulator der 
Farbfernseher angeschlossen werden. 

Der Pin 19 des VIC ist der Ausgang der vier Tongeneratoren. 
Da die Signale digital erzeugt werden, ist das Ausgangssignal 
sehr obertonreich. Das Tiefpassfilter mit den Kondensatoren 
C9 und C10 und dem Widerstand R8 begrenzt den Frequenzbereich 
auf die eigentlichen Tonfrequenzen. An der Basis des 
Transistors Ql wird dies gefilterte Signal eingespeist. 
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zusätzlich kann ein externes Audiosignal zugemischt werden. 
Wenn Sie von dieser Einspeisung eines externen Signals 
(beispielsweise ein Mikrofonsignal> Gebrauch machen wollen, 
können Sie das Signal an dem Kontakt Y des Expansion—Ports 
zuführen. Das Signal sollte eine Größe von ca. 3 Vss haben. 
Das Audiosignal wird vom Emitter des Ql über den Kondensator 
Cll auf den Kontakt 3 des Video/Audio-Ports gelegt. An diesem 
Kontakt können Sie direkt einen kleinen Lautsprecher 
anschließen. Besser wird das Ergebnis natürlich mit einem 
kleinem Verstärker, da das Ausgangssignal eigentlich nicht 
für den direkten Betrieb eines Lautsprechers ausgelegt ist. 

Damit haben wir die Anschlüsse des VIC und ihre Verwendung 
kennengelernt. Wie aber werden die Zeichen genau auf dem 
Bildschirm erzeugt? 

Dazu wollen wir uns einmal ein einzelnes Zeichen etwas 
genauer anschauen. Wie bereits erwähnt, setzen sich die 
einzelnen Zeichen aus Punkten zusammen. Dieses Punktemuster 
ist auf einem Farbfernseher nicht mehr zu erkennen. Wenn der 
VC—20 aber an einen hoch auflösenden Monitor angeschlossen 
wird, ist das Muster gut zu erkennen. Der Buchstabe A ist 
folgendermaßen aufgebaut: 

1 2 3 4 5 6 7 8 

1 . 

2 . 

3 . 

4. ******* 

5 . * . . . . * . 

6 . * . . . . * . 

7 . 

8 . 


Jedes Zeichen des VC-20 ist in dieser 8 mal 8 Matrix 
aufgebaut. 

Da alleine zur Darstellung der ersten Punktereihe 8 Bits 
erforderlich sind, benötigt ein ganzes Zeichen somit 8 Bytes. 
Im Video-RAM wird aber nur ein einziges Byte pro Zeichen 
abgespeichert. 

Dieses Byte kann also nicht direkt das Zeichenpunktemuster 
enthalten. Das ist aber auch garnicht erforderlich, wir haben 
ja noch das Charakter-ROM. 

In diesem ROM sind die Bitmuster der Zeichen abgespeichert. 
Jedes Zeichen des VC-20 belegt im Character-ROM 8 Adressen. 
Die Daten aus dem Video-RAM werden vom VIC nun als Adressbits 
0 bis 7 für den Charakter-ROM benutzt. Damit ist die erste 
Punktereihe adressiert. 

Die Adressierung der 7 weiteren Punktebytes übernimmt der VIC 
jetzt selbstständig mit den Adressleitungen A8 bis A10. Mit 
jedem Anfang einer neuen Punktereihe auf dem Bildschirm wird 
die Information auf diesen Leitungen um eins erhöht. 

Wenn wir nun einmal ein wenig rechnen, dann haben wir zur 
Zeichendarstellung 8 Bits zur Verfügung. Damit lassen sich 
256 verschiedene Zeichen darstellen. Der VC-20 hat aber 
inklusive der Reverse-Zeichen einen Vorrat von 512 Zeichen, 
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genau doppelt so viele. 

Der Trick ist nun, daß nicht alle Zeichen zur Zeit 
darstellbar sind, sondern zwei getrennte Zeichensätze 
vorhanden sind. Der erste Zeichensatz des VC—20 ist der 
normale, beim Einschalten vorhandene Satz mit Großbuchstaben 
und Graphikzeichen. Der zweite, durch Drücken von SHIFT und 
der Commodore-Taste erreichbare Zeichensatz enthält die 
Klein- und Großbuchstaben. 

Die Umschaltung zwischen diesen Zeichensätzen wird durch das 
Adressbit All des VIC vorgenommen. Ist das Adressbit Low, 
wird der beim Einschalten vorhandene Groß—Graphiksatz 
angewählt. 


Das RAM, der Arbeitsspeicher. 

Ohne Speiehererweiterung meldet sich der VC—20 nach dem 
Einschalten mit der Auskunft, daß 3583 Bytes frei sind, also 
für Basieprogramm und verwendete Variablen zur Verfügung 
stehen. 

Insgesamt sind im VC-20 5K RAM eingebaut. Die 

Speicherbausteine sind die ICs U14 und U15 sowie UE2 und UD2. 
Diese ICs sind sogenannte statische Speicher-ICs. 

Die ICs U14 und U15 enthalten jeweils 2048 mal 8 
Speicherzellen. Jeweils 8 Speicherplätze belegen zusammen 
eine Adresse und bilden ein Byte. Die Adressierung der 
Speicherplätze geschieht über die Adressleitungen A0 bis All. 

Im Gegensatz dazu enthalten die ICs UD2 und UE2 1024 mal 4 
Speicherzellen. Um ein Byte zu bekommen, sind zwei ICs 
erforder1 ich. 

Wenn man die Datenleitungen von UD2 und UE2 verfolgt, sieht 
man, daß UE2 mit den Datenleitungen BD4 bis BD7 und UD2 mit 
den Leitungen BD0 bis BD3 verbunden ist. Damit stehen wieder 
8 Bits zur Verfügung. 

Die Daten- und Adressleitungen der Speicher-ICs sind alle 
untereinander verbunden. Um jetzt zu unterscheiden, welches 
IC, also welcher Speicherbereich adressiert wird, ist der 
Dekoder UC4 nötig- 

Dieser Dekoder arbeitet genau so wie der Dekoder UC5, den wir 
schon in Verbindung mit dem VIC besprochen haben. Beim UC4 
ist die Eingangsbeschaltung aber etwas anders. 

Damit die Eingänge A,B und C an den Pins 1 bis 3 des Dekoders 
die Ausgänge beeinflussen können, muß der Eingang Gl High und 
die Eingänge G2A und G2B Low sein. Diese G-Eingänge stellen 
eine Freigabe-Funktion dar. 

Der Eingang Gl ist mit dem Adressbit VA13 verbunden- Damit 
ist dieser Eingang immer High, wenn keine Adresse im Bereich 
$8000 bis $9FFF anliegt. Die Erzeugung von VA13 wurde bereits 
im Kapitel über den VIC erläutert. 

Der Eingang G2B liegt direkt auf Masse, ist also immer Low. 
Das Signal an G2A wird vom NOR-Gatter UC3 erzeugt. Der eine 
Eingang des NOR ist mit dem Signal S01 verbunden. Da dieses 
Signal aus dem invertierten Signal S02 gewonnen wird, ist es 
immer dann High, wenn der VIC den Bus belegt. Damit ist 
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sichergestel1t, daß auch der VIC das RAM adressieren kann. 

Der zweite Eingang des NOR—Gatters ist über einen Inverter 
des ICs UC2 mit dem Signal -BLK0 verbanden. Dieses Signal 
wird vom Dekoder UC5 erzeugt und ist in den Zeiten Low, wenn 
S02 =High und der Prozessor eine Adresse im unteren 8 
K-Bereich auf den Adressbus legt. 

Damit ist schon klar, daß der Speicher nur in den unteren 8 K 
des Prozessor-Adressraums angeordnet sein kann. Aber schauen 
wir uns jetzt die Eingänge A,B und C des Decoders an. Diese 
Eingänge sind mit den Adressleitungen VA10 bis VA12 
verbunden. Der Decoder arbeitet nun in der Art, daß wenn die 
drei Adressleitungen Low sind, der Ausgang 0 am Pin 15 Low 
ist. Wenn VA10 High, die anderen beiden Adressbits aber Low 
sind, dann ist Ausgang 1 am Pin 14 Low. Alle anderen Ausgänge 
sind dann High. Au-f diese Weise wird der 8 K-Block, der durch 
das Signal -BLK0 ausgewählt wurde, in kleinere 1 K—Bereiche 
untertei1t. 

Der Pin 15 des Dekoders ist mit dem Pin 8 der beiden Speicher 
UD2 und UE2 verbunden. Dieser Anschluß an den 
Speicherbausteinen mit der Bezeichnung -CS, Chip Selekt, 
bewirkt die grundsätz 1iche Adressierung des ICs. Sobald 
dieser Anschluß Low wird, verlassen die Datenleitungen den 
Tri-State-Zustand und je nach Datenrichtung werden sie zu 
Eingängen oder Ausgängen. Die Adressierung der einzelnen 
Bytes geschieht über die Adressleitungen VA0 bis VA9. 

Damit beginnt der RAM—Bereich bei $0000 und endet erst einmal 
bei $03FF. Die Dekoderausgänge 1 bis 3 werden im VC-20 nicht 
direkt verwendet. Diese Signale werden als -RAMI bis -RAM3 
au-f dem Expansion Port au-f die Kontakte 14, 15 und 16 
geführt, über diese Signale werden die 3 K RAM in der 3 
K-ErWeiterung oder im Super-Erweiterungsmodul selektiert. 

Die Ausgänge 4 bis 7 werden als -CS für die RAMs U14 und U15 
verwendet. Da diese Speicher jeweils 2 K RAM enthalten, 
werden die UND-Gatter im IC U13 benötigt. Damit werden je 
zwei Ausgänge mit 1 K-Bereichen verknüpft. An den Ausgängen 
der UND-Gatter sind somit 2 K-Bereiche selektiert. Das IC U15 
liegt im Speicherbereich $1000 bis $17FF, U14 liegt im 
Speicherbereich $1800 bis $1FFF. Dezimal ausgedrückt ist das 
der Bereich von 4096 bis 8191. 

Die 3 K-Speichererweiterung wurde gerade ja schon erwähnt. 
Diese Erweiterung schließt die Lücke zwischen den beiden 
RAM-Bereichen im VC-20. Die 8 K- und 16 K-Erweiterungen 
schließen sich im Adressbereich nach oben, d.h. zu den 
höheren Adressen hin an. 

Zum Abschluß des Kapitels wollen wir noch die Vorgänge um das 
Farb-RAM betrachten. 

Dies Farb-Ram ist ebenfalls ein 2114 und somit als 1024 mal 4 
Bit-Speicher organisiert. Mit diesen 4 Bits sind 16 
Kombinationen darstellbar, genau ausreichend für 16 
verschiedene Farben. 

Der Adressbus dieses RAM ist genau wie die anderen RAMs mit 
dem VA-Bus verbunden, da ja sowohl der Prozessor als auch der 
VIC dieses RAM adressieren müssen. 

Die Datenleitungen sind aber nicht direkt mit dem BD-Datenbus 
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verbunden. Hier ist ein Vierfach-Analogschalter, das IC UD1, 
dazwischengeschaltet. 

Diese Analogschalter sind vergleichbar mit einfachen 
mechanischen Schaltern. Genau wie diese sind Analogschalter 
bidirektional, d.h. die Daten können ohne Umschaltung der 
Datenrichtung vom Prozessor sowohl aus dem Farb-RAM gelesen 
als auch in das RAM geschrieben werden. Ein- und 
ausgeschaltet werden die Schalter mit einer Spannung an den 
Steuereingängen Pin 5, 6, 12 und 13. Liegen diese Eingänge 
auf High, dann sind die Schalter geschlossen, das Farb-RAM 
liegt mit seinen 4 Datenleitungen auf den unteren vier 
Datenbits BD0 bis BD3. Ist der Pegel Low, dann sind die 
Schalter geöffnet und die Datenleitungen liegen nur an den 
Dateneingängen VD8 bis VD11. Als Steuersignal wird der 
Systemtakt S02 verwendet. 

Der Sinn der Abschaltung wird klar, wenn man sich überlegt, 
daß wenn der VIC ein Zeichen aus dem Video-RAM liest, dieses 
Zeichen über den BD-Datenbus in den VIC gelesen wird. 
Gleichzeitig wird aber die Farbinformation auf dem 
VD-Datenbus benötigt. Ohne die Abschaltung würde Video-Ram 
und Farb-Ram gleichzeitig die Datenbits 0 bis 3 belegen, die 
Datenleitungen würden gegeneinander arbeiten und die Daten 
wären unbrauchbar. 

Etwas aufwendig ist die Adressdekodierung und Erzeugung des 
-CS-Signals für das Farb-RAM. 

Diese Dekodierung wird mit dem dritten Dekoder-IC UC6 im 
VC-20 vorgenommen. Die Eingänge dieses 74LS138 sind mit den 
sechs höchsten Adressbits des Prozessors verbunden. Der 
Eingang Gl ist mit dem Adressbit CA15 verbunden. Gl ist, wie 
wir schon bei den beiden anderen Dekodern gesehen haben, ein 
High-aktives Signal, die beiden G2-Eingänge sind Low-aktiv. 
Die Eingänge können also nur im Adressbereich von $8000 bis 
$9FFF (dez. 32768 bis 40959) die Ausgänge beeinflussen. 

An den eigentlichen Signaleingängen des Dekoders liegen die 
Adressbits CA10 bis CA12. Somit ändern sich die Ausgänge des 
Dekoders in 1 K-Schritten. Die im Bereich von $8000 bis $8FFF 
befindlichen Ausgänge an den Pins 12 bis 15 werden im VC-20 
nicht benutzt. Die vier verbleibenden Ausgänge dekodieren den 
sogenannten I/O-Bereich, das ist der Adressbereich von $9000 
bis $9FFF (dez. 36864 bis 40959), in 1 K-Blöcken. 

Der Pin 10 des Dekoders ist im zweiten 1 K-Block dieses 
Adressbereichs Low. Dieses Signal wird zur Erzeugung des 
-CS-Signals für das Farb-RAM verwendet. Damit liegt das 
Farb-RAM im Bereich von $9400 bis $97FF. 

Das Signal des Dekoders wird zuerst auf den Inverter UC2 
gegeben. Am Ausgang des Inverters liegt das Signal COLOR an. 
Dieses Signal wird auf den Eingang Pin 12 des Busbuffers UE8 
geführt. Am Ausgang des Buffers lautet dieses Signal jetzt 
CEN B, was wohl in etwa COLOR ENABLE BUFFERED bedeuten soll. 
Dieses CEN B wird nun noch einmal über den Inverter UC2 
geführt und dann an den -CS-Eingang des RAMs gegeben. 

Jetzt stellt sich die Frage, warum das Signal insgesamt zwei 
mal invertiert wird. Nach einer zweifachen Invertierung hat 
jedes Ausgangssignal wieder die selbe Polarität wie das 
Eingangssignal. 

Zur Erklärung müssen wir uns an die zeitliche Doppelbenutzung 
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von Daten- und Adressbus erinnern- Maßgeblich zum Verständnis 
ist der Adressbuffer UE8. Wenn der Prozessor den Adressbus 
belegen kann (02 = High), dann ist der Buffer eingeschaltet. 
Damit kann der Inverterausgang auf das Signal CEN B 
einwirken, der Ausgang des Buffers folgt dem Eingang. 

Ist dagegen der VIC am Zug und belegt den Bus (02 = Low), 
dann ist der Buffer im Tri-State-Zustand. Jetzt wird der 
Eingang Pin 3 des Inverters UC2 über den Widerstand R15 an 
+5V gelegt und ist damit High- Dadurch ist der Ausgang des 
Inverters Low, das Farbram ist immer selektiert, wenn der VIC 
aktiv ist. 

Auf diese elegante Art und Weise hat der VIC bei jedem 
Zugriff auf das Video-RAM die aktuelle, zu dem Zeichen 
gehörende Farbinformation zur Verfügung. 


Das ROM, Das Langzeitgedächtnis des VC-20. 

In den ROM-Bausteinen ist alles das gespeichert, was der 
VC-20 beim Einschalten sofort 'wissen' muß- In diesen ICs ist 
also der Basic—Interpreter, das Betriebssystem und der 
Zeichensatz enthalten. Die ROMs werden schon bei der 
Herstellung programmiert. Die enthaltene Information ist 
nachträglich nicht mehr zu ändern. 

Im VC-20 sind drei ROMs eingebaut. Dies sind die ICs UE11, 
UE12 und UD7- 

UE11 und UE12 enthalten das Basic und das Betriebssystem. UD7 
ist das Character—ROM. 

Ähnlich wie die RAMs haben auch die ROMs einen -CS-Eingang. 
Da Basic und Betriebssystem (auch als Kernal bezeichnet) je 8 
K groß sind, haben wir die Auswahlsignale schon zur 
Verfügung- Diese Signale werden vom Dekoder UC5 erzeugt. 
Dessen Ausgänge selektieren, wie bereits beschrieben, jeweils 
B K-Bereiche. Die -CS-Eingänge sind Low-Aktiv, das bedeutet, 
daß der Anschluß -CS auf einem Low-Pegel liegen muß, um das 
IC zu selektieren. Darum können die Dekoderausgänge direkt 
verwendet werden. 

Das Signal -BLK7, Low im Adressbereich $E000 bis $FFFF (dez. 
57344 bis 65536), liegt am -CS-Pin 20 vom UE12. Dieses ROM 
enthält das Betriebssystem. 

Das Basic-ROM bekommt sein -CS-Dignal vom Dekoderausgang 
-BLK6. Dies Signal ist Low, wenn der Prozessor eine Adresse 
im Bereich $C000 bis $DFFF (dez. 49152 bis 57343) auf den 
Adressbus legt. Damit ist der Adressbereich des 
Basic-Interpreters festgelegt. 

Der Daten- und Adressbus der beiden ROMs liegt direkt am 
Prozessor. Durch die Buffer kann der VIC auf diese ICs nicht 
zugreifen. Das ist aber auch gar nicht nötig. 

Anders beim Charakter—ROM. Hier liegen die Adressleitungen 
auf dem Bus VA, der Datenbus ist der BA-Bus. Damit liegt das 
ROM sowohl im Zugriffsbereich des Prozessors wie auch des 
VIC. 

Das Charakter—ROM belegt den Adressbereich von $8000 bis 
$8FFF (dez. 32768 bis 36863). Das ist ein Bereich von 4 K. 

Zur Selektion hat das ROM zwei -CS-Eingänge. Diese müssen 
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beide Low sein, um daß IC zu selektieren. -CS1 ist mit dem 
Adressbit VA13 verbunden. Wie wir beim VIC gesehen haben, ist 
dies Adressbit eigentlich der —BLK4~Ausgang des Dekoders UC5. 
-CS2 ist mit dem Adressbit VA 12 verbunden. Wie bereits 
erwähnt ist VA13 nur im Adressbereich $8000 bis $9FFF Low. 
Innerhalb dieses Bereichs ist VA12 Low von $8000 bis $8FFF. 


Die Schnittstellenbausteine VIA 6522 


Die VIAs im VC-20, die ICs UAB1 und UAB3 übernehmen die 
komplette Ein-Ausgabesteuerung außer der schon beschriebenen 
Videosteuerung. 

Diese VIAs (Versatile Interface Adapter) verfügen über zwei 
8-Bit Ports, zwei Interval 1-Timer, ein Schieberegister zum 
einfachen Aufbau einer seriellen Schnittstelle und über 
Anschlüsse zum Kontrol1ieren der Datenübertragung auf den 
8~Bit Ports, sogenannte Hand-Shake-Leitungen. 

Die genaue programm-technische Handhabung dieses ICs können 
Sie im folgenden Kapitel mit der Registerbeschreibung der 
Peripheriebausteine nachlesen. Wir wollen uns hier zuerst 


wieder 

den verschiedenen Anschlüssen des 6522 zuwenden. 

Pin 

Bez. 

Funktion 

1 


Vss 

Betriebsspannung Masse 

2 

bis 

PA0 

Port A bidirektional Bit 0 

9 


PA7 

Port A bidirektional Bit 7 

10 

bi s 

PB0 

Port B Bidirektional Bit 0 

17 


PB7 

Port B bidirektional Bit 7 

18 


CB1 

Port B Control1-Anschluß 1 

19 


CB2 

Port B Control1-Anschluß 2 

20 


Vcc 

Betriebsspannung +5V 

21 


-IRQ 

Ausgang, Interruptsteuerung 

22 


R/-W 

Eingang, Read/—Write Steuer1eitung 

23 


—CS2 

Eingang, -Chip Select 2 

24 


CS1 

Eingang, Chip Select 1 

25 


02 

Takteingang, Systemtakt 

26 

bi s 

D7 

Datenleitung Prozessorbus Bit 7 

33 


D0 

Datenleitung Prozessorbus Bit 0 

34 


-RES 

Eingang, System—Reset 

35 

bi s 

RS3 

Eingang, Register—Select 3 

38 


RS0 

Eingang, Register—Select 0 

39 


CA2 

Port A Control1-AnSchluß 2 

40 


CA1 

Port A Control1-Anschluß 1 


Der Port A kann je nach Programmierung des 6522 als Ausgabe¬ 
oder als Eingabeport arbeiten. Dabei kann die Datenrichtung 
eines jeden Portbits einzeln programmiert werden. Bei der 
Verwendung als Eingabeleitung können die Eingabewerte im VIA 
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gespeichert werden. 

Dafür -findet der Anschluß CA1 Verwendung- Mit jedem 
Low—High—Wechsel an CA1 werden die an den als Eingängen 
verwendeten Portbits anliegende Information im VIA 
gespeichert. Durch Programmierung sind die beiden 
CA-Anschüsse aber auch als Interrupteingänge verwendbar. 

Port B ist ebenfalls in seiner Datenrichtung an jedem Portbit 
frei programmierbar. Auch hier können die an den als Eingang 
programmierten Leitungen liegenden Informationen mit einem 
Hand—Shake—Signal im VIA gespeichert werden- Zusätzlich ist 
das Bit PB7 in der Art zu programmieren, daß dieser Anschluß 
den Ausgang eines der beiden integrierten Timer darstellt. 
PB6 dagegen ist als Eingang für den anderen Timer 
programmierbar- 

Bei entsprechender Programmierung arbeitet CB1 als 
Hand-Shake-Eingang- Aber die Anschlüsse CB1 und CB2 können 
auch in anderen Betriebsarten betrieben werden. Ebenso wie 
die CA-Leitungen können sie zum einen als Interrupteingänge 
verwendet werden. Zum zweiten können diese Leitungen aber den 
Ein- und Ausgang des Schieberegisters darstellen. Damit 
eignen sich diese Leitungen besonders zur Realisation 
serieller Datenübertragung. 

Der Ausgang -IRQ wird normalerweise zur Erzeugung eines 
Interrupts verwendet. Dieser Anschluß wird immer dann Low, 
wenn bestimmte programmierte Ereignisse eintreten. Dies kann 
zum Beispiel in Verbindung mit den Timern, dem 
Schieberegister oder auch den Portcontrol 1anschlüssen 
geschehen. Der -IRQ-Ausgang des UAB1 ist mit dem -IRQ-Eingang 
des Prozessors verbunden. Der -IRQ-Ausgang der zweiten VIA 
UAB3 ist mit dem -NMI-Eingang des Prozessors verbunden. 

Der R/-W-Anschluß der VIAs ist direkt mit dem Prozessor 
verbunden, über diese Leitung signalisiert der Prozessor, ob 
er Daten in eines der 16 Register des 6522 schreiben oder aus 
dem VIC lesen will. 

Der Datentransfer vom Prozessor zu den VIAs geschieht über 
den gebufferten Datenbus BD0 bis BD7. 

Die Adressierung der 16 internen Register jeder VIA ist etwas 
aufwendig. Für diesen Zweck verfügt ein 6522 über sechs Pins. 
Die eigentliche Registerauswahl wird mit den vier RS- oder 
Register Select-Pins vorgenommen. Diese Anschlüsse sind 
direkt mit den unteren vier Adressbits des Prozessors 
verbunden. Damit ergibt sich eine durchgehende Adressierung 
der Register. Zusätzlich hat jeder 6522 zwei CS- oder Chip 
Seiect—Eingänge. Der CS1 ist ein High-aktives Signal, -CS2 
ist Low-aktiv. Um also eine VIA zu selektieren, muss das 
Signal CS1 High, -CS2 dagegen gleichzeitig Low sein. 

Die allgemeine Adressdekodierung wird vom Dekoder UC6 
vorgenommen. Dieser Dekoder wurde von uns schon bei der 
Erzeugung des -CS-Signals für das Farb-RAM behandelt. Wie 
festgestellt, werden durch diesen Dekoder 1 K-Adressblöcke im 
Bereich $8000 bis $9FFF dekodiert. 

Innerhalb dieses Bereichs wird der Ausgang Pin 11 des 
Dekoders als -CS-Signal für die VIAs verwendet. Dadurch 
liegen diese ICs im Adressbereich $9000 bis $93FF. Zur 
Selektion der VIAs ist aber auch noch der CSl-Eingang 
vorhanden. Um den Hardware-Aufwand gering zu halten, werden 
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diese Eingänge nicht von einem weiteren Dekoder, sondern von 
den Adressbits CA4 und CA5 angesteuert. Bei der Dekodierung 
der Adressbereiche werden die Adressbits CA6 bis CA11 
überhaupt nicht benutzt. Dadurch ergibt sich die Möglichkeit, 
die Basisadresse innerhalb des durch die Dekodierung 
begrenzten Bereichs frei zu wählen. 

Von dieser Möglichkeit muß im VC-20 sogar Gebrauch gemacht 
werden. Schauen wir uns dafür einmal die vollständige 
Dekodierung vom VIA UAB3 an. 

Das Signal -CS2 ist im Adressbereich $9000 bis $93FF Low. Das 
erste interne Register kann angesprochen werden, wenn die 
Adressleitungen CA0 bis CA3 entsprechend den Anschlüssen RS0 
bis RS3 Low sind. Die letzte Bedingung ist das Signal CS1. 
Adressbit CA4 muß somit High sein, um den 6522 zu 
selektieren. Die erste Adresse, auf der alle Bedingungen 
erfüllt sind, ist demnach $9010. Da aber die Adressbits CA6 
bis CA11 redundant sind, also in der Dekodierung keine Rolle 
spielen, kann die VIA z.B- auch auf den Adressen $9050, 
$9110, $9190 und verschiedenen anderen Adressen angesprochen 
werden. 

Der Haken an der ganzen Sache ist nun der VIC. Obwohl er nur 
16 interne Register hat, und somit mit dem Adressbereich von 
$9000 bis $900F auskommen sollte, belegt er doch die 256 
Bytes von $9000 bis $90FF. Damit ist also erst ab der Adresse 
$9100 Platz für die VIAs. Wenn Sie für eigene Experimente mit 
dem Userport arbeiten wollen, sollten Sie sich daran 
erinnern, und die Startadressen der VIAs auf $9110 für UAB3 
und $9120 für UAB1 festlegen. 

Soviel zum Anschuß dieser ICs an den Prozessor. Betrachten 
wir uns nun einmal, wozu die VIAs überhaupt eingesetzt 
werden. 

Die 8-Bit-Ports A und B von UAB1 werden zum Anschluß der 
Tastatur verwendet. Die Tastatur ist über den Stecker 
KEYBOARD CONN mit den beiden Ports verbunden. Die 16 
Leitungen der beiden Ports werden in einer 8 mal 8 Matrix 
zusammengeschaltet. In dieser Matrix sind 64 Positionen 
möglich. Wenn wir uns die Mühe machen, die Tasten des VC-20 
zu zählen, dann kommen wir aber auf 66 Tasten, zwei mehr als 
mit der Matrix abfragbar sind. 

Diese beiden überzähligen Tasten sind die RESTORE- und die 
SHIFT LOCK—Taste. RESTORE liegt überhaupt nicht in der 
Matrix, sondern ist separat herausgeführt. Die Taste SHIFT 
LOCK ist einfach zu der linken SHIFT-Taste parallel 
geschaltet. Die anderen Tasten haben alle eine bestimmte 
Position in der Matrix. Diese Positionen sind auf dem Bild 
auf der nächsten Seite zu sehen. 

Die eigentliche Tastaturabfrage läuft folgendermaßen ab. 

Der Port A ist als Eingang programmiert. Bei dem 6522 
erscheint ein offener Eingang immer als High. Port B ist als 
Ausgang programmiert. Die Ausgänge sind normalerweise High. 
Alle 17 Millisekunden werden aber die Ausgänge für ca. 40 
Microsekunden Low. 
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Wenn jetzt beispielsweise die Taste 'B' gedrückt wird, dann 
erscheint dieser kurze negative Impuls an dem Eingang Bit 3 
des Port A. Damit ist -F estgestel 11, daß eine Taste gedrückt 
ist. Um welche Taste es sich handelt, kann aber noch nicht 
gesagt werden. Darum wird nach dieser allgemeinen Erkennung 
eine gezielte Suche nach der Tastenposition durchgeführt - 
Dazu wird jetzt nacheinander jeder Ausgang von Port B kurz 
Low. Wenn Bit 4 dieses Port Low wird, liegt dieser Impuls 
über die gedrückte Taste an Port A Bit 3. Damit steht die 
genaue Position innerhalb der Matrix -fest. 

Die Bits 3 und 7 des Port B erfüllen im VC-20 eine 
Doppelfunktion, über Bit 7 wird die Position 'Rechts' des 
Joysticks abgefragt. Dazu muß natürlich das Bit 7 des Port B 
auf Eingang programmiert, und die Tastaturabfrage 
ausgeschaltet werden. 

Das Portbit 3 des Port B liegt am Cassetten-Part P2 auf den 
Kontakten E und 5. über diese Leitung werden die Schreibdaten 
als serieller Datenstrom zur Datasette geführt. 

Auch das Control1-Bit CA1 vom UAB1 liegt am Cassetten-Port 
P2. Diese Leitung liegt aber an den Kontakten D und 4. über 
diese Leitung kommen die Lesedaten von der Datasette. 

CA2 dieser VIA wird verwendet für den seriellen IEC-Bus. 
Diese Control1-Leitung liefert über den invertierenden Buffer 
UB4 das Signal SERIAL CLK OUT am Pin 4 des Serial Port. 
Dieses Clock-Signal steuert die Geschwindigkeit der 
Datenübertragung auf dem seriellen Bus. 

Auch die Control1bits 1 und 2 des Ports B werden für den 
seriellen Bus verwendet. 

CB1 ist direkt mit dem Pin 1 der <S—pol i gen Buchse verbunden 
und ist als Eingang SRQ IN programmiert. SRQ (Service 
ReQuest) ist ein Signal des 'großen' IEC—Busses. über diese 
Leitung können angeschlossene Geräte dem Rechner melden, daß 
Daten vorliegen und 'abgeholt' werden müssen. Allerdings wird 
dieser Anschluß am VC-20 von keiner uns bekannten Peripherie 
benutzt. 

CB2 liegt ebenfalls über einen invertierenden Buffer im UB4 
an der Buchse P3. Dies Bit liefert die seriellen Daten für 
Floppy, Drucker oder sonstige Peripherie. 

Auch die Anschlüsse der zweiten VIA UAB3 werden teilweise 
doppelt benutzt. 

Die Bits 0 und 1 vom Port A werden aber ausschließlich vom 
seriellen Bus benutzt. Dabei ist das Bit 0 der Eingang SERIAL 
CLK IN, Bit 1 ist der Eingang SERIAL DATA IN. Um Daten z.B. 
aus der Floppy in den VC-20 zu bekommen, muß der Bus 
bidirektional sein. Die verwendeten invertierenden Buffer im 
IC UB4 lassen aber nur eine Datenrichtung zu. Darum müssen 
für die Eingänge andere Bits an den VIAs benutzt werden. Das 
bedeutet aber, daß wenn z.B. die Floppy Daten auf die Leitung 
SERIAL DATA legt, der Ausgang der Floppy auf dem Ausgang des 
VC-20 liegt. Da aber die verwendeten Buffer sowohl im VC-20 
wie auch in der Floppy sogenannte Open Col1ector-Ausgänge 
haben, ist das Zusammenschalten ohne Gefahr für die Ausgänge 
möglich. 

Die verbleibenden 6 Bits von Port A liegen am sogenannten 
User-Port PI. Dieser User-Port stellt Ihnen die Möglichkeit 
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zur Verfügung, eigene Steuerungen oder Interfaces ohne großen 
Hardwareaufwand zu realisieren. Mit diesem Port können Sie 
beliebig Daten aus dem VC-20 ausgeben oder eingeben. Die 
Programmierung können Sie der Registerbeschreibung des 6522 
in diesem Buch entnehmen. Doch wenden wir uns zuerst wieder 
den VIAs zu. 

über die Bits 2 bis 4 werden die Joystick-Positionen 'Links', 
'Oben' und Unten' abgefragt. Dabei ist das Bit 2 für die 
Position 'Oben', Bit 3 für 'Unten' und Bit 4 für die Position 
'Links' verantwortlich. 

Das Bit 5 trägt die Bezeichnung LITE PEN. Das ist 
verwunderlich, den der Light Pen-Anschluß gehört ja an den 
VIC. Der Srund für diese Bezeichnung ist der Control 1er-Port, 
an dem sowohl Joystick wie Paddle als auch der Light Pen 
angeschlossen wird. Um mit der vorhandenen Anzahl von 
Anschlüssen auszukommen, wurde der Pin 6 des Controller—Port 
doppelt belegt. Er ist sowohl Eingang für dem Light Pen als 
auch für den Feuerknopf des Joysticks. Damit ist die 
Bezeichnung am Bit 5 der VIA UAC3 verständlich. Dieses Bit 
fragt bei entsprechender Programmierung den Feuerknöpf ab. 

Die Abfrage, ob an der Datasette eine Taste gedrückt ist, 
wird mit dem Bit 6 des Port A realisiert. Dabei ist aber zu 
beachten, daß der VC-20 nicht unterscheiden kann, welche 
Taste gedrückt ist, da in der Datasette alle Tasten 
gleichzeitig abgefragt werden. 

Auch das Bit 7 des Ports A wird für den seriellen Bus 
verwendet. Es trägt die Bezeichnung SERIAL ATN IN. 

ATN ist die Abkürzung für Attention, auf Deutsch so viel wie 
ACHTUNG. Mit diesem Signal wird den Peripheriegeräten 
Signalisiert, daß der VC-20 Anweisungen an die 
angeschlossenen Berate senden will. Da der VC—20 innerhalb 
einer Anlage immer die Aufgabe eines Controllers hat, verfügt 
er auch über keinen entsprechenden Eingang. 

Das Signal SERIAL ATN IN liegt nur auf dem User-Port. Dieses 
ATN IN wird von keiner Erweiterung der Firma Commodore 
genutzt. Diese Beschaltung hat aber den Vorteil, daß das 
Portbit auch am User—Port zur Verfügung steht. 

Bei der Benutzung dieses Bits müssen Sie nur darauf achten, 
daß Sie dieses Bit nur als Ausgang verwenden können, und 
zusätzlich die Information durch den Buffer UB4 invertiert 
wi rd. 

Das Control1-Bit CA 1 hat eine ganz besondere Bedeutung. An 
diesem Pin von UAB3 ist die RESTORE-Taste angeschlossen. Wenn 
diese Taste nicht gedrückt wird, legt der Widerstand R16 den 
Anschluß auf einen High-Pegel. Wird die Taste aber gedrückt, 
dann liegt der Anschluß auf Masse und in der VIA wird ein 
Interrupt erzeugt. Der Anschluß -IRQ der VIA wird sofort Low 
und erzeugt damit am Prozessor einen -NMI. 

CA2, das zweite Control1-Bit des Port A, wird wieder für die 
Datasette benötigt, über dieses Bit wird der Recorder Motor 
gesteuert. 

Diese Motorsteuerung wollen wir uns noch einmal etwas genauer 
ansehen. Wichtig hierfür sind die Transistoren Q3 und Q4. 
Wenn das Bit CA2 High ist, wird die Basis des Transistors Q3 
über den Widerstand R20 angesteuert; der Transistor ist 
durchgeschaltet. Damit ist aber die Zenerdiode CR1 
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kurzgeschlossen, die Basis des zweiten Transistors Q4 liegt 
au-f Masse. Damit ist dieser zweite Transistor gesperrt und 
der Rekordermotor bekommt keinen Strom; der Motor steht. Wenn 
das Bit CA2 aber Low wird, dann sperrt der Transistor G3. 
Jetzt kann sich über der Diode CR1 die sogenannte 
ZenerSpannung aufbauen. Fertigungsbedingt hat die an dieser 
Stelle eingesetzte Diode eine Zenerspannung von ca. 6-8 Volt. 
Damit wird der Transistor Q4 angesteuert. Am Emitter dieses 
Transistors stellt sich jetzt eine Spannung ein, die etwa 0.8 
Volt unter der Spannung an der Basis von Q4 liegt (ca. 6 
Volt). Diese Spannung ist relativ unabhängig von der 
Belastung durch den Motor. Dadurch läuft die Datasette immer 
mit annähernd gleicher Geschwindigkeit, eine für den 
störungsfreien Betrieb sehr wichtige Voraussetzung. 

Der vollständige 8-Bit-Port B der VIA UAB3 und die 
dazugehörenden Control 1-Bits 1 und 2 liegen ausschließlich am 
User-Port. Bei diesen Portbits brauchen Sie keine Rücksicht 
auf eine eventuelle Benutzung durch das Betriebssystem zu 
nehmen. Aber auch hierbei gibt es wieder eine Ausnahme. Wenn 
Sie nämlich Ihren VC-20 mit einer RS-232 Schnittstelle 
ausrüsten, dann werden die freien Leitungen des User-Port für 
den Betrieb dieser Schnittstelle verwendet. Das ist aber 
nicht sonderlich schlimm, da die Kontakte des User—Port dann 
ja sowieso von der Schnittstelle belegt werden und Ihnen 
nicht mehr zur Verfügung stehen. 

Insgesamt stehen Ihnen am User-Port also 10 ganz frei 
programmierbare Leitungen und 6 bedingt freie Leitungen zur 
Verfügung. 

Bedingt Frei bedeutet, daß Sie bei der Benutzung dieser Bits 
eine mögliche Kollision mit dem Betriebssystem vermeiden 
müssen. 

Zusätzlich liegt am User Port am Kontakt 3 noch das Signal 
-RES, um eventuelle externe Schaltungen beim Einschalten in 
einen Grundzustand zu versetzen und am Kontakt 2 die 
stabilisierte Betriebsspannung von +5V zur Versorgung 
kleinerer Schaltungen. Größere Schaltungen können Sie 
versorgen, wenn Sie die 9 Volt Wechsel Spannung an den 
Kontakten 10 und 11 gleichrichten und stabilisieren. Bedenken 
Sie aber, daß der maximale Wechselstrom von der Benutzung des 
Recorders abhängt. 

Was können Sie aber nun mit dem User-Port anfangen? 

Einige denkbare Anwendungen sind die Realisation einer 
Centronics—Schnittstelle, der Anschluß eines EPROM 
Programmiergerätes, die Abfrage von Analog/Digital Wandlern 
oder umgekehrt die Ansteuerung von Digital/Analog Wandlern, 
die Steuerung von Motoren, die Abfrage von Endschaltern und, 
und, und.... 

Hier können Sie Ihrer Phantasie ganz und gar freien Lauf 
lassen. Vielleicht fällt Ihnen ja noch etwas ganz 
außergewöhnliches ein. Wie wäre es mit einer Steuerung für 
die Stereoanlage mit eingebauter Alarmanlage für das Haus? 
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Registerbeschreibung des VIC 6561 


Der VIC verfügt über 16 Register, die im Folgenden 
beschrieben werden. 

Die Basisadresse des VIC im VC—20 ist 36864 ($9000) 

REG 0 Bildabstand vom linken Rand 

Die Bits 0-6 bestimmen den Abstand des Bildrahmens 
vom linken Rand. Das Erhöhen dieses Registers um 1 
verschiebt das Bild um jeweils vier Punkte nach 
rechts. 

Bit 7 legt -fest, ob das Bild im Zeilensprungverfahren 
(=1) dargestellt wird oder nicht (=0). Das 
Zeilensprungverfahren besteht einfach darin, daß ein 
Bild aus zwei Halbbildern zusammengesetzt wird, und 
2W ar aus einem Bild mit allen geraden Rasterzeilen 
und einem mit allen ungeraden Rasterzei1en. Bei 
Manipulation dieses Bits kann am Fernsehschirm keine 
Wirkung beobachtet werden. 

REG 1 Bildabstand vom oberen Rand 

Mit diesem Register wird der Abstand des Bildrahmens 
vom oberen Rand bestimmt. Das Erhöhen dieses 
Registers um 1 verschiebt das Bild um jeweils zwei 
Punkte nach unten. 

Anmerkung zu REG 0&1 

Bei Spielmodulen gibt es nach dem Einschalten oft die 
Möglichkeit, mit Hilfe der Cursorsteuertasten das 
Bild zu zentrieren. 

REG 2 Anzahl der Zeichen/Zeile 

Die Bits 0-6 legen fest, wieviel Zeichen pro Zeile 
dargestellt werden sollen. 

Bit 7 ist Bestandteil von REG 5 und wird dort 
beschrieben. 

REG 3 Anzahl der Zeilen 

Bit 0 bestimmt die Darstel1ungsart eines Zeichens, 
entweder als 8x8-Matrix (=0, Normalfall) oder als 
16x8—Matrix (=1). 

Mit den Bits 1-6 kann die Anzahl der Zeilen pro Bild 
festgelegt werden. 

Bit 7 ist Bestandteil von REG 4. 


Anmerkung zu REG 2&3 

Wenn Sie die Anzahl der Zeichen oder Zeilen verändern 
wollen, so beachten Sie bitte, daß andere als die 
nach dem Einschalten in diesen Registern 

diesbezüglich enthaltenen Werte (durch PEEK zu 
ermitteln) vom Betriebssystem nicht unterstützt 
werden. Das Betriebssystem geht z.B. bei der 
Organisation von Basiczeilen davon aus, daß der 
Bildschirm auf 23 Zeilen mit je 22 Zeichen 

eingestellt ist. Sie können auch mit den 

PRINT-Bef ehlen die Grenzen des Videoram nicht 
überschreiten- 
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REG 4 Laufende Rasterzeile 

Die Bits 0-7 geben zusammen mit Bit 7 aus REG 3 
(dieses bildet dann Bit 0 der Gesamtzahl) die 
Rasterzeile wieder, die gerade vom Strahl der 
Bildröhre überstrichen wird- Der Wert kann 

beispielsweise dazu benutzt werden, an einer 
bestimmten Position des Bildes die Basisadresse des 
Videorams (s. REG 5) zu ändern (Split-Screen- 
Verfahren). Allerdings dürfte hierzu nur ein Programm 
in Maschinensprache schnell genug sein. 

REG 5 Basisadressen 

Die Bits 0-3 bestimmen die Basisadresse des 
Zeichengenerators. Auf die aktuelle Speicheradresse 
bezogen sind das die Adressbits 10-13. Im VC-20 ist 
der eingebaute Zeichengenerator solange aktiviert, 
wie Bit 28(3 =0 sind. Bei Bit 3 =1 wird der 
Zeichengenerator im Ram gesucht, abhängig von den 
Bits 0—2, mit deren Hilfe sich der Zeichengenerator 
ab der Speicheradresse 0 in Schritten von 1K 
verschieben läßt. So können Sie im Ram Ihren eigenen 
Zeichensatz aufbauen- Achten Sie hierbei jedoch 
darauf, daß Sie dem Betriebssystem nicht ins Gehege 
geraten (s. Speicherbelegung und Zero-Page). 

Die Bits 4-7 bilden zusammen mit Bit 7 aus REG 2 die 
Startadresse des Videorams. Bezogen auf die aktuelle 
Speicheradresse sind das die Adressbits 13-9. Da 
Adressbit 13 im VC-20 aus Hardwaregründen immer =1 
sein muß, ergibt sich eine Verschiebemöglichkeit des 
Videorams innerhalb der unteren 4k des Speichers in 
Schritten von 512 Bytes. Achten Sie auch hierbei auf 
Konflikte mit dem Betriebssystem. 

REG 6 Lightpenposition horizontal 

Dieses Register enthält eine zwischengespeicherte 

Punktposition <s. Anmerkung). 

REG 7 Lightpenposition vertikal 

Dieses Register enthält eine zwischengespeicherte 

Rasterzeilenposition. 

Anmerkung zu REG 6?<7 

Die augenblickliche Position des Bi1dröhrenstrahles 
wird dann in den REG 6&7 gespeichert, wenn am 
Anschluß LIGHTPEN (Pin 6 des Controlport oder Pin 7 
des Userport) ein Übergang von 1 nach 0 auftritt. 
Diese Möglichkeit ist zum Malen mit einem 

Lichtgriffel oder für Schießspiele am Bildschirm 
interessant. 


Analogeingang X 
Analogeingang Y 


(Pin 9 des 


(Pin 5 des 


REG 8 gibt den Wert am 

Controlport) wieder. 

REG 9 gibt den Wert am 

Controlport) wieder. 

REG 10 Tongenerator 1 

Die Bits 0-6 bestimmen die Tonhöhe des Generators. 
Bit 7 =1 schaltet den Generator ein, —0 aus. 
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REG 11 Tongenerator 2 

Bedeutung der Bits wie REG 10 

REG 12 Tongenerator 3 

Bedeutung der Bits wie REG 10 

REG 13 Rauschgenerator 

Bedeutung der Bits wie REG 10 


REG 14 Lautstärke/Farbauswahl ... , 

Die Bits 0-3 regeln kollektiv die Lautstarke 


al 1 er 


Generatoren. 

Die Bits 4-7 bestimmen eine Farbe im Zusammenhang mit 
dem Mul t icol or —Mode <s- Betr iebsarten des VIC) . 


REG 15 


Rahmen— /Hintergrundfarbe 

Mit den Bits 0-2 kann eine Rahmen-farbe ausgewahlt 

werden. . , 

Bit. 3 =1 laßt verschiedenfarbige Zeichen auf einer 
gemeinsamen Hintergrundfarbe erscheinen, wahrend 
Bit 3 =0 die Zeichen gleichfarbig (Farbe aus Bit 4 7) 
auf verschiedenfarbigem Hintergrund darstellt. Dieses 
Bit hat im Multicolor-Mode keine Bedeutung. 

Die Bits 4-7 bestimmen die Hi ntergrundfarbe. 


Die Betriebsarten des VIC 


Der VIC kennt zwei Arten der Darstellung, nämlich 
Hi-Res-Mode und Mul ticolor-Mode. 

Die beiden Betriebsarten unterscheiden sich lediglich in der 
Interpretation des Inhaltes des Zeichengenerators. 

Ausgewählt werden die Betriebsarten durch den Zustand des 
höchstwertigen Bits (Bit 3) im Farbram (im Farbram sind ja 
jeder Position des Videorams vier Bits zugeordnet). 


Hi-Res-Mode (Farbbit 3 =0) 

Diese Betriebsart ist normalerweise nach dem Einschalten des 
VC—20 (oder nach STOP/RESTORE) eingestellt. 

Hierbei besteht eine eins zu eins Zuordnung der Bits des 
Zeichengenerators mit den Punkten auf dem Bildschirm. Das 
bedeutet, daß alle 1-Bits des Zeichengenerators in einer von 
den Farbbits 0-2 abhängigen Farbe dargestellt werden, und 
alle 0-Bits in der Hintergrundfarbe (REG 15). Beachten Sie, 
daß Bit 3 in REG 15 diese Verhältnisse umkehren kann. 
Normalerweise besteht das dargestellte Bitmuster aus 
lesbaren Zeichen, die im Hardware-Charactergenerator des 
VC—20 festgelegt sind, jedoch ist ohne weiteres ein Zeichnen 
auf dem Bildschirm möglich, wenn Sie die Startadresse des 
Zeichengenerators ins Ram verlegen. Die Bi 1 dschirmspiele 
arbeiten auch so. 
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Multi-Color—Mode (Farbbit 3 -1) 

Diese Betriebsart ist ein wenig trickreicher als die vorige. 
Hier werden zur Darstellung eines Punktes (in Wirklichkeit 
sind es zwei) gleich zwei Bits aus dem Zeichengenerator 
herangezogen. 

Die Farbe des Punktepaares wird indirekt durch eben diese 
zwei Bits bestimmt, mit deren Hilfe eine aus vier 
Farbquel1en ausgewählt wird. Da jedoch zur Farbbestimmung 
eines Punktes zwei Bits aus dem Zeichengenerator 
herangezogen werden, beträgt die horizontale Auflösung nur 
die Hälfte des Hi-Res-Mode, d.h. ein Bx8~Block (die Größe 
eines 'normalen* Zeichens) ruft auf dem Bildschirm nur einen 
8x4—Block hervor, wobei die Punkte doppelt breit sind, also 
dennoch einen vollständigen Zeichenplatz belegen. 

Auf diese Weise ist der Speicherbedarf für beide 

Betriebsarten gleichgroß. 

Die beiden Bits des Zeichengenerators bestimmen, woher die 
Farbe für einen solchen doppelt breiten Punkt genommen 
werden soll. Folgende Kombinationen sind möglich: 

00 REG 15 Bit 4-7 (Hintergrundfarbe) 

01 REG 15 Bit 0-2 (Rahmenfarbe) 

10 Farbbits 0-2 aus dem korrespondierenden Farbram 

11 REG 14 Bit 4-7 

Es muß noch einmal betont werden, daß die beiden Bits aus 
dem Zeichengenerator nicht unmittelbar die Farbe bestimmen, 
sondern nur die Quelle angeben, aus der die Farbe entnommen 
werden soll. Wenn Sie die Farbe eines Bi 1dschirmpunktes bei 
einer gegebenen Bitkombination, z.B. 00, ändern wollen, so 
müssen Sie die Bits 4-7 in REG 15 manipulieren. 
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Registerbeschreibung der VIA 6522 


Die VIA 6522 verfügt über 16 Register, mit deren Hilfe zwei 
8-Bit-Datenports, zwei 16-Bit-Timer, ein Schieberegister und 
diverse Steuerleitungen gehandhabt werden. 

Die Basisadressen der beiden im VC-20 vorhandenen VIAs sind 
37136 ($91lß, IEC—Bus und Userport) und 37152 ($9120, 
Tastatur) 

Im Folgenden sind die Register ausführlich beschrieben. 


REG 0 Datenregister B (ORB) 

Dieses Register gibt den Zustand des Datenport B 
wieder. Es kann sowohl geladen als auch gelesen 
werden. 

Achtung; Ein Zugriff auf dieses Register setzt die 
Bits 3&4 des IFR (REG 13) zurück und kann, abhängig 
vom Zustand der Bits 5-7 im PCR (REG 12), die Leitung 
CA2 beeinf1ussen * 

REG 1 Datenregister A (ORA) 

Hiermit wird der Datenport A gehandhabt, Zugriffsart 
Lesen/Schreiben. 

Achtung; Die Bits 0&1 des IFR (REG 13) werden 
zurückgesetzt. Außerdem kann, abhängig vom Zustand 
der Bits 1-3 im PCR (REG 12), die Leitung CA2 
beeinflußt werden. 

REG 2 Datenrichtung Port B (DDRB) 

Mittels dieses Registers können die Leitungen des 
Datenport B individuell auf Eingabe oder Ausgabe 
programmiert werden. Ist ein Bit dieses Registers =0, 
so steht die korrespondierende Datenleitung auf 
Eingabe; ist es =1, steht die Leitung auf Ausgabe. 

REG 3 Datenrichtung Port A (DDRA) 

Bedeutung wie REG 2, allerdings für den Datenport A. 

REG 4 Timer 1 LO (T1CL) 

Beim Lesezugriff gibt dieses Register den Zustand des 
niederwertigen Teiles von Timer 1 wieder. 
Beim Laden wird zunächst nur ein Zwischenspeicher mit 
dem neuen Wert versorgt. Die Übernahme in den Zähler 
erfolgt erst mit Schreiben des höherwertigen Bytes 
(REG 5). 

REG 5 Timer 1 HI (T1CH) 

Beim Lesen erhalten Sie den höherwertigen Teil von 
Timer 1. Ein Schreibzugriff lädt sowohl den 
Zwischenspeicher als auch den Zähler. Gleichzeitig 
wird das niederwertige Byte aus dem Zwischenspeicher 
in den Zähler übernommen. 

Achtung; Bit 6 des IFR (REG 13) wird beim Schreiben 
zurückgesetzt‘ 

Abhängig von Bit 6&7 des ACR (REG 11) kann die 
Leitung PB7 und das Bit 6 des IFR (REG 13) beeinflußt 
werden. 
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ACR6&7 =00: 

Beim Nul1durchgang des Zählers wird IFR6 gesetzt. Der 
Timer zählt zwar nun erneut bis Null, jedoch kann 
IFR6 erst wieder nach dem Schreiben von REG 5 gesetzt 
werden. 

ACR6&7 =01: 

Wie vor, jedoch wird PB7 beim Laden von REG 5 =L0 und 
beim nächsten Nul1durchgang =HI. PB7 steht 

unabhängig von DDRB auf Ausgang! 

ACR6&7 =10: 

Der Timer zählt zyklisch vom einmal geladenen Wert 
auf Null, jedoch wird IFR6 nur beim ersten 
Nul1durchgang nach Laden von T1CH gesetzt. IFR6 kann 
durch Lesen von T1CL, Schreiben von TICH oder 
explizit, wie bei REG 13 beschrieben, rückgesetzt 
werden. 

ACR6&7 =11: 

Wie vor, jedoch kippt PB7 bei jedem Nul1durchgang in 
die jeweils andere Lage- 

REG 6&7 Timer 1 LG&HI (T1LL&T1LH) 

Vom Zugriff auf diese Register sind sowohl beim 
Schreiben als auch beim Lesen grundsätzlich nur die 
Zwischenspeicher der jeweiligen Zähler betroffen. Die 
Zähler selbst werden nicht verändert. Interessant ist 
dieser Effekt, wenn die Timer im FREE-RUNNING-MODE 
<REG 11 Bit 6 =1) betrieben werden. Hierbei wird bei 
jedem Nul1durchgang des Zählers dieser automatisch 
mit dem Inhalt des Zwischenspeichers geladen. 

Achtung: Auch beim Schreibzugriff auf REG 6 wird 
Bit 6 des IFR (REG 13> zurückgesetzt! 

REG Q&9 Timer 2 LG&HI (T2CL&T2CH) 

Für diese Register trifft bezüglich Lesen und Laden 
sinngemäß die Beschreibung der REG 4&5 zu. Allerdings 
gibt es hier nur zwei Betriebsarten, abhängig von 
Bit 5 im ACR (REG 11) 

ACR5 =0: 

Sinngemäß wie bei Timer 1, Betriebsart 000 
beschrieben; allerdings ist hier Bit 5 des IFR 
(REG 13) vom Nul1durchgang betroffen. 

ACR5 =1: 

Ein in den Timer 2 geladener Wert wird durch von 
außen an PB6 angelegte Impulse auf Null gezählt, 
wobei beim Nul1durchgang IFR5 gesetzt mird. Der Timer 
zählt nun erneut auf Null, jedoch kann IFR5 erst 
wieder beim dem Laden von REG 9 folgenden 
Nulldurchgang gesetzt werden. 

Achtung: Ein Schreibzugriff auf REG 9 setzt Bit 5 
des IFR (REG 13) zurück! 

REG 10 Schieberegister (SR) 

Das Schieberegister kann ohne weiteres geschrieben 
und gelesen werden. Die hierbei ausgelösten Vorgänge 
sind abhängig vom Zustand der Bits 2-4 des ACR 
(REG 11). 

ACR2-4 =000: 

Das Schieberegister kann ohne weitere .Auswirkungen 
geschrieben und gelesen werden. 
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ACR2-4 =100: 

Die an CB2 anliegenden Daten werden mit einer durch 
T2CL (REG 8) bestimmten Geschwindigkeit in SR 
hineingeschoben. Der Schiebetakt kann durch die 
Formel CLK/2/n berechnet werden, wobei CLK die 
Systemtakt-Frequenz (im VC-20 ca. l,02MHz> und n der 
nach REG 8 geladene Wert ist. Dieser Schiebetakt 
steht auch an CB1 zur evtl. Synchronisation der 
Datenquelle zur Verfügung. Nach acht Impulsen wird 
der Schiebevorgang unterbrochen und erst -fortgesetzt, 
wenn SR gelesen wurde. Außerdem wird Bit 2 des IFR 
(REG 13) gesetzt. 

ACR2-4 =010: 

Der Schiebetakt wird hier durch den Systemtakt 
erzeugt und beträgt CLK/2. Sonst wie vor. 

ACR2-4 =110: 

Der Schiebetakt muß in dieser Betriebsart von außen 
an CB1 zugeführt werden. Nach acht Takten wird auch 
hier IFR2 gesetzt, jedoch der Schiebevorgang nicht 
unterbrochen. 

ACR2-4 =001: 

Der Inhalt des Schieberegisters wird mit einer durch 
den Systemtakt und den Inhalt von REG 8 bestimmten 
Geschwindigkeit nach CB2 hinausgeschoben. Dieser 
Vorgang läuft zyklisch, d.h. die aus SR 
hinausgeschobenen Bits werden wieder hineingeleitet. 
Der Schiebetakt ist wieder an CB1 verfügbar. 

ACR2-4 =101: 

Der Schiebevorgang wird nach acht Takten abgebrochen 
und erst nach Laden des SR fortgsetzt. Außerdem wird 
IFR2 gesetzt. Sonst wie vor. 

ACR2-4 =011: 

Der Schiebetakt beträgt CLK/2. Sonst wie vor. 

ACR2-4 =111: 

Die Schiebeimpulse müssen von außen an CB1 angelegt 
werden. Nach acht Takten wird zwar IFR2 gesetzt, 
jedoch der Schiebevorgang nicht unterbrochen. 

Achtung: Für alle Betriebsarten gilt, daß nach acht 
Impulsen, gleichgültig ob intern erzeugt oder von 
außen angelegt, das Bit 2 im IFR (REG 13) gesetzt 
wird. Gelöscht wird dieses Bit durch Schreiben oder 
Lesen des SR. 

REG 11 Hi1fssteuerregister (ACR) 

Die Bits dieses Registers werden hier nur soweit 
beschrieben, wie sie nicht bereits bei den Timern und 
dem Schieberegister behandelt wurden. 

Bit 0 =0: Die aus ORA gelesenen Daten entsprechen dem 
aktuellen Zustand der Leitungen PA0-7. 

=1: Der beim Setzen von IFR1 durch CA1 an PA0—7 
vorhandene Zustand wird bis zum Löschen von IFR1 
(REG 13) im ORA festgehalten. 

Bit 1s Sinngemäß wie oben, jedoch sind hier ORB, 
PB0-7, CB1 und IFR4 betroffen. 

Bit 2-4: Steuerung des Schieberegisters SR (REG 10) 
Bit 5s Steuerung von Timer 2 (REG 8&9> 

Bit 6-7: Steuerung von Timer 1 (REG 4&5) 

REG 12 Port-Steuerregister (PCR) 
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Bit 0 =0: Eine -fallende Flanke an CA1 setzt IFR1 
=1: Eine steigende Flanke setzt IFR1 
Bit 1-3=000: Eine -fallende Flanke an CA2 setzt IFR0- 
IFR0 wird beim Zugriff auf ORA oder explizit 
zurückgesetzt. 

=100: Wie oben, jedoch kann IFR0 nur explizit 
rückgesetzt werden. 

=010: Wie bei =000, jedoch steigende Flanke. 

=110: Wie bei =100, jedoch steigende Flanke. 

=001: Zugriff auf ORA setzt CA2=LO. Nach einer 
aktiven Flanke an CA1 wird CA2 wieder HI. 

=101: Nach einem Zugriff auf ORA wird CA2 für 
die Dauer eines Systemtaktes LO. 

=011: CA2 wird LO. 

=111: CA2 wird HI. 

Bit 4 =0: Eine fallende Flanke an CB2 setzt IFR4. 

=1: Eine steigende Flanke setzt IFR4. 

Bit 5-7=000: Eine fallende Flanke an CB2 setzt IFR3, 
welches mittels Zugriff auf ORB oder explizit 
rückgesetzt werden kann. 

=100: Wie oben, jedoch kann IFR3 nur explizit 
rückgesetzt werden. 

=010: Wie bei =000, jedoch steigende Flanke. 

=110: Wie bei =100, jedoch steigende Flanke. 

=001: Ein Schreibzugriff auf ORB setzt CB2=L0. 
Eine aktive Flanke an CB1 setzt CB2 wieder HI. 

=101: Nach einem Schreibzugriff auf ORB wird 
CB2 für die Dauer eines Systemtaktes LO. 

=011: CB2 wird LO. 

=111: CB2 wird HI. 

REG 13 Interrupt-Flag-Register (IFR) 

Die einzelnen Bits dieses Registers signalisieren das 
Eintreffen von Ereignissen, deren 

Eintrittsbedingungen hier nur noch global beschrieben 
werden, da sie im einzelnen bereits an ihren 
Ursprüngen erläutert wurden. 

Bit 0: wird mit einer aktiven Flanke an CA2 gesetzt 
und mit einem Zugriff auf ORA (REG 1) rückgesetzt. 

Bit 1: wird mit einer aktiven Flanke an CA1 gesetzt 
und mit einem Zugriff auf ORA (REG 1) rückgesetzt. 

Bit 2: wird nach acht Schiebeimpulsen gesetzt und mit 
einem Zugriff auf SR (REG 10) rückgesetzt. 

Bit 3: wird mit einer aktiven Flanke an CB2 gesetzt 
und mit einem Zugriff auf ORB (REG 0) rückgesetzt. 

Bit 4: wird mit einer aktiven Flanke an CB1 gesetzt 
und mit einem Zugriff auf CB2 (REG 0) rückgesetzt. 

Bit 5: wird beim Nul1durchgang von Timer 2 gesetzt 
und mit einem Lesezugriff auf T2CL (REG 8) oder einem 
Schreibzugriff auf T2CH (REG 9) rückgesetzt. 

Bit 6: wird beim Nul1durchgang von Timer 1 gesetzt 
und mit einem Lesezugriff auf T1CL (REG 4) oder einem 
Schreibzugriff auf T1CH (REG 5) rückgesetzt. 

Bit 7: wird gesetzt, wenn mindestens ein gesetztes 
Bit dieses Registers mit dem korrespondierenden 
gesetzten Bit im IER (REG 14) zusammentrifft. Dieses 
Bit gibt den Zustand der Leitung IRQ wieder. 

Achtung: Die Bits 0-6 dieses Registers können auch 
explizit dadurch rückgesetzt werden, indem man das 
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Register mit einem Byte lädt, dessen gesetzte Bits 
(=1) mit dem zu löschenden Bit dieses Registers 
korrespondieren. 

REG 14 InterruptHEnable-Register (IER) 

Die Bits dieses Registers korrespondieren mit den 
Bits des IFR. Beeinflussung der Leitung IRQ wie unter 
IFR 7 beschrieben. 

Die Bits dieses Register lassen sich setzen, indem 
man das Register mit einem Byte lädt, dessen gesetzte 
Bits mit dem zu setzenden Bit dieses Registers 
übereinstimmen, wobei das höchstwertige Bit (Bit 7> 
=1 sein muß- Die 0—Bits im Datenbyte lassen die 
korrespondierenden Bits dieses Registers unverändert. 
Sollen einzelne Bits rückgesetzt werden, so ist der 
Vorgang wie oben beschrieben, jedoch muß hier das 
höchstwertige Bit des Datenbytes (Bit 7) =0 sein. 

REG 15 Datenregister A (ORA) 

Der Inhalt dieses Registers spiegelt die 
Datenleitungen PA 0-7 wieder, wie unter REG 1 
beschrieben, jedoch hat der Zugriff in diesem Falle 
keinerlei Auswirkung auf die Steuer1 eitungen oder das 
IFR. 
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